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DATABASE USING TABLE ROTATION AND BITMAPPED QUERIES 

BACKGROU ND OF THg INVENTION 

In the direct mailing business, companies 
5 maintain very large databases of customers that might 
range from 1 million to 20 million records. Because 
these files are so large the direct marketing industry 
has grown up with very large and simplistic database 
systems rather than taking advantage of the newer 
10 relational technology that is available. By relational 
technology, it is meant the ability to interrelate 
various types of information together in a dynamic 
fashion so that various information about a customer, 
for example demographics, what products they purchased, 
15 when they last purchased, etc. may be interrelated. 

Many other industries that use databases for 
storage of large amounts of information concerning 
customers have been able to take advantage of relational 
technology. In some of those industries, for example 
20 retail stores, the relational database has worked 

effectively by segmenting the data into chunks, so that 
all 2 million of the retail store's customers do not 
have to be looked at each time a search is performed. 
Customers can be grouped by individual stores. Another 
25 example would be in the banking industry, where banks 
segment their data such that only customers of one of 
its branches are reviewed. On the other hand, large 
direct marketing companies do not segment up their 
customers. They want to look at patterns that cross all 
3 0 of its millions of customers, making it very difficult 
to segment up a direct marketing database into chunks 
while maintaining effective access to the data. At 
present, a large direct marketing company would 
typically store its data in large files with one record 
3 5 for each customer. The record would typically be stored 
on a tape or a mainframe. To illustrate the structure 
of data stored in the standard relational database, take 
a database of l million customers that contains at least 
the information on state, zip, age, income, city and 
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gender. A standard database stores data in 
representative fields within a record for each customer 
as shown in FIGURE 1. Each of the six categories shown 
are representative of one field. In this example if it 
5 is desired to get three points of information, gender, 
state, and income level, a search of all records for all 
customers must be performed.. 

In traditional technology the progression of 
this search is to pull the first record off the le 
extract the three pieces of data from the record, load 
such data into a table, and proceed to the next record. 
This process would be repeated 1 million times in a case 
such as that shown in FIGURE 1 having 1 million 
customers/records. This is a very inefficient process 
and in the direct marketing context where there could be 
as many as 750 to 2,000 fields the search can become 
very time consuming for very simple projects such as the 
above example. 

The computer accesses the queried information 
in traditional technology by grabbing the entire record, 
which in some instances may include as many. as 750 to 
2,000 fields. The record is stored in computer memory 
and the desired fields, three in this example, are 
reviewed and followed by a determination of whether this 
particular record satisfies the query, if the above 
example had involved 2000 fields and 10 million 
customers, that would be 20 gigabytes of information 
that the computer would have to pass through to answer 
the query. This is a very inefficient process, when 
considering that most direct marketing data bases are of 
this size and that most queries involve an average of 6 
to 10 fields out of the thousand fields being searched. 
Therefore, in standard data base searching, when a 
record is brought into the computer and data is 
35 downloaded, there is a large inefficiency ratio when 
comparing the amount of data searched to that which is 
actuallv used. 
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There are two issues that the present 
invention attempts to address. First, the architecture 
of the very large files in direct marketing make it very 
expensive to answer even the most simple question. So 
5 whether the query would acquire a lot of information or 
is as simple as how many females bought a particular 
product, the standard database requires that all the 
records be searched to find such information. This is a 
very slow and expensive process. The present invention 

10 provides a tool that shortens the search time for 

simpler tasks, performing some in a matter of seconds. 

This invention, Database Link™, relates to a 
system designed to give rapid access to large relational 
marketing databases. In particular, it is a product 

15 designed specifically for professionals in direct 

marketing who desire to get mission-critical information 
from large marketing databases. These databases 
typically have anywhere from 1 million to 25 million 
customers plus up to 10 times that many additional 

20, detail records. 

In addition to the large size of these 
databases, direct marketing has several unique 
characteristics that make getting information from these 
files particularly challenging. First, the databases 

25 are quite homogenous. As opposed to databases in 
industries such as banking and finance that can 
logically organize customers into geographic "lumps", 
direct marketers look at their customer base in a more 
monolithic fashion. This reduces the effectiveness of 

3 0 common database strategies which look to segment files 
to improve response time. 

Second, these databases contain a large and 
growing amount of information on each customer. Direct 
Marketers are moving towards finer and finer targeting 

35 of their promotions which requires huge amounts of 

information about individuals and households. It is not 
uncommon to store upwards of a thousand fields on each 
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individual, and the amount of fields will continue to 
increase at a rate of 25 to 50 per year. This fact, 
combined with the first point about the monolithic 
nature of these databases, creates a huge challenge to 
today's hardware and software technology. Within this 
challenging environment, Database Link™ is designed to 
meet the needs of direct marketing professionals. 

SUMMARY OF THE INVENTTOTJ 

According to the invention, a method and 
system are provided that allow direct marketing - 
personnel to reduce the time and enhance the efficiency 
of searches performed on direct marketing data records. 
The user enters a query on an IBM compatible PC running 
15 a client server program under the Microsoft Windows™ 
environment. After the query has been entered, the 
client server turns the query into a packet which is 
sent to the system server. 

The server stores data from a standard 
database in modified form, rotated 90 degrees. Instead 
of data being stored contiguously for each .individual 
customer listed in the database, as is done in a 
standard database, the data for each field across all 
records in the database is stored contiguously. 
25 The queried information is retrieved and 

processed using a process called bitmapping, which 
reduces the search time per the complexity of the query 
in contrast to the standard database system. After data 
has been captured it is packetized and returned to the 
client server program where it can be reviewed. 

The present invention can also produce a suite of 
reports that are specific to the needs of- direct 
marketers. These include reports on RFM information 
(recency of last purchase, frequency of purchases, and 
monetary totals of life to date information. These 
reports are generated on a regular (usually monthly 
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basis) and are used to drive the direct marketing 
process . 

The present invention also provides a system 
that permits data segmentation, ad hoc requests, and 
5 systematic research. 

BRIEF DESC RIPTION OF THE DRAWINGS 

Figure 1 is an illustration of data records stored 
in a relational database in contiguous form for each 
individual customer listed in the database; 
10 Figure 2 is a simplified schematic drawing of the 

Database Link query system; 

Figure 3 is an illustration of data records stored 
in a relational database after 90 degree rotation and 
reprocessing so that data stored is contiguous for each 
15 field across all records; 

Figure 4 is an illustration of the file structure 
types used by the present invention; 

Figure 5 is an illustration of the spreadsheet of 
the client server windows software according to the 
20 present invention; 

Figure 6 is an illustration of the Build Query box 
screen of the client server windows software according 
to the present invention; 

Figure 7 is an illustration of the Distribution 
25 Screen of the client server windows software according 
to the present invention, which allows for the selection 
of any of the tables contained in the database and any 
set of ranges; 

Figure 8 is an illustration of the data tabulation 
3 0 screen of the client server windows software according 
to the present invention; 

Figure 9 is an illustration of the data tabulation 
screen of the client server windows software according 
to the present invention; 
35 Figure 10 is an overview block diagram of the query 

processing of the present invention; and 
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Figure 11 is an overview block diagram of one 
method of combining multiple bitmaps resulting from a 
complex query. 

5 DETAILED DESCRIPTION OF SPECIFIC 

EMBODIMENTS 

In the following detailed description of the 
preferred embodiment, reference is made to the 
accompanying drawings which form a part hereof and in 

10 which is shown by way of illustration an exemplary 
embodiment in which the invention may be practiced. 
This embodiment is described in sufficient detail to 
enable those skilled in the art to practice the 
invention, and it is to be understood that other 

15 embodiments may be utilized and that structural or 

logical changes may be made without departing from the 
scope of the present invention. The following detailed 
description is, therefor, not to be taken in a limiting 
sense, and the scope of the present invention is defined 

2 0 by the appended claims. 

For purposes of this application, the stored 
data that is referred to throughout, is relational 
database data that has been modified. The relational 
database data is modified by rotating the data files 90 
25 degrees. Now, instead of data being stored contiguously 
for each individual customer listed in the database, the 
data for each field across all records in the database 
is stored contiguously. In short, each individual 
record instead of being in columnar form is now stored 

3 0 in rows and each field previously stored as rows is now 

stored in columnar form. 

The Database Link™ system, which is the 
product name for the preferred embodiment of the present 
invention, is based on a client server system design. 
35 In this paradigm, the processing for the user interface 
is on a separate computer from the system that actually 
accesses the data and produces the result that has been 
reouested. 
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Referring now to FIGURE 2, an overview cf the 
invention will be described. The user interface piece 
resides on an IBM compatible .PC 10 and runs under the 
control of a client windows program in the Microsoft 
5 Windows™ environment. The client windows program is 
built around a sophisticated grammar that models the 
real world environment of the database marketer. It 
assists the user in creating queries that are turned 
into packets and sent to the server 14 processor over a 

10 LAN or telephone wire based WAN 12. 

Once the server 14 has received a request, it 
begins to process the data until the results have been 
completed. The server 14 uses an approach built on 
bitmaps providing users with the ability to rapidly 

15 retrieve data After the requested data is retrieved, the 
server 14 puts the results into a packet handling system 
that delivers the results back to the PC 10 that 
requested the information. 

20 The Client Windows Prog ram 

The client windows program exists, to allow 
easy interface between the user and the database server. 

It is based on a basic spreadsheet type of 
25 paradigm within the Microsoft Windows environment. The 
application is designed to be compatible with Windows 
and meets all of the requirements as specified by 
Microsoft in their Windows Applications Development 
document . 

3 0 The client windows program allows for easy 

formulation of queries and "packet izes" the information 
and sends it to the database server for processing. 
There are two main components to the client windows . 
program: a language parser that enables parsing of 

35 complex marketing queries and a spreadsheet /report 

specification that allows many queries to be organized 
into one ouerv. 
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The language parser interprets the DBL 
grammar. The DBL grammar is based on an industry 
( standard SQL database query specification and adds 

specific functionality to meet the needs of the Direct 
5 Marketing industry. 

The Spreadsheet 

The spreadsheet is what the user sees when 
entering the Database Link™ application, illustrated in 
10 FIGURE 5. The spreadsheet allows for the optional 

storage of queries into batches for submission in one 
"lump" to the server 14. Each row in the spreadsheet 
represents one group of customers that are to be 
selected. 

The first two columns are for labeling 
purposes. The keycode column is a special mnemonic used 
by marketers for naming groups and the labels column is 
any label that the user wants to identify a group. Each 
additional column contains one criteria that defines 
that particular group. Each of these criteria is 
"ANDED" together to define a group. Thus, .if the first 
column contained "gender is male" and the second column 
contained "state is Minnesota", the result for that row 
would be all males who are from the state of Minnesota. 
25 In addition to this basic functionality, the 

spreadsheet has all of the standard spreadsheet 
functionality built into Windows applications. This 
includes the capability to cut, copy, and paste cells, 
rows, and columns. Rows and columns may be inserted as 
desired. Database Link 1 " allows the user to proof the 
queries contained within each cell to make sure they are 
grammatically correct queries. 

Building Queries 

35 The user is provided a "point and click" 

dialog box for the actual creation of queries to send to 
the database. The Build Query box is shown in FIGURE 6. 
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These queries can be sent directly to the database fcr 
processing or they might be saved to the spreadsheet 
where they might be submitted in a batch. 

The Build Query dialog box moves the user 
5 through several steps starting with the selection of 
Query Table in the far upper left-hand part of the box. 
Once -the table has been selected, all of the fields that 
are contained in that table appear in the second line 
which is currently empty. Once the field has been 

10 selected, a list of valid operators appears in the third 
line. Finally the user enters the actual value in the 
fourth line. Pieces of queries are then accumulated 
into a total query in the bottom spreadsheet connected 
with and's/or's as selected on the far left side of the 

15 box. 

Distributions 

Database Link™ allows the user to find out 
additional information about customers beyond straight - 

20 forward counts. For example, if the above user wanted 
to find out the most recent purchase dates .of the male 
Minnesotans, the distribution option would allow the 
user to select those customers and get a distribution of 
results on any of the fields in the database. The 

25 Distribution Screen is shown in Figure 7. This screen 
allows for the selection of any of the tables contained 
in the database and any set of ranges (e.g., a date 
field may be lumped into months or weeks) . 

3 0 Two and Three Way Crosstabs 

In addition to distributions on a single 
field, Database Link™ also allows for results to be 
tabulated across two and three fields. The setup for 
this is shown in Figures 8 and 9. A table is chosen 
35 which defines a set of fields to choose from. This is 
followed by a specification of ranges for the field 
chosen. 
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Client Server 
Hardware Specifies 

Database Link™ server is currently optimized 
to run on a Digital Equipment Corporation (DEC) Alpha 
5 AXP server under the VMS operating system. The program 
is written in C and the core processes are nearly 
independent of hardware or operating system platform. 
The exceptions to the above are two- fold: 

1. DecMessageQue (DMQ) is a messaging system that 
10 reliably moves information from one computer to 

another. Database Link™ uses this product to get 
information from the PC 10 to the server 14 and 
results from the server 14 back to the PC 10. Thi 
product is integral to the overall functioning of 

15 Database Link™. .However, it has no impact on the 

uniqueness of patentability of the product. Other 
messaging systems are available that could provide 
similar or identical functionality. The system 
could easily be migrated to another product or to 

20 an entirely different hardware/software platform 

with no changes in functionality. 

2. Global Sections. DEC VMS has a unique feature 
called global sections that allows the software 
engineer to map large sections of a disk file 

25 directly to an area in computer memory. Once this 

is done, any access to this area causes automatic 
swapping of data from disk to memory on an as 
needed basis. Essentially, this allows a program 
to contain multiple gigabytes of data that appear 

30 to be in memory at one time even though physical 

memory is only a fraction of this amount. A useful 
analogy would be to think of catching a hundred 
pound fish with a five pound test line. 

Database Link™ uses this capability throughout 

35 its core functions. Rather than performing 

inefficient reads from the disk, the area of data 
that is needed is "mapped" to a global section and 
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the operating system optimizes the access to this 
information. Because this operating system is very 
efficient at this type of memory optimization and 
swapping, this approach is very fast. It also 
5 allows an inherent multi- threading (more than one 

type of supporting process happening at the same 
time) that enables disk I/O to happen at the same 
time as data is evaluated at the beginning of a 
process . 

10 Data Base Link evaluates data in a manner 

different than that which occurs in a standard 
relational data base. The data evaluation process is 
different because data is not stored in the server 14 of 
the present invention as it is normally stored in 

15 standard relational databases. 

Data Structure 
In standard relational databases, data is 
gathered and stored contiguously. In most cases, this " 
contiguously stored data is in the form of a columnar 

20 record as illustrated in FIGURE 1. The record 

represents the data stored on each individual direct 
marketing customer. It stretches across numerous 
fields, such as state, zip, age, income, city and 
gender . 

25 When data within a standard relational 

database is modified for storage on the Database Link™ 
server, essentially, each record is removed, rotated by 
90 degrees, and placed within the memory of the Database 
Link™ server 14. Rather than having all data stored 

30 contiguously for each individual customer, as shown in 
FIGURE 1, the data for each field across all 
records/customers in the database is stored contiguously 
as illustrated in FIGURE 3. For example, instead of 
having columns that are one thousand fields long for 

35 each of 1 million customers, as shown in FIGURE 1, the 
structure has been modified to have one thousand columns 
(fields) that are 1 million bytes long, as shown in 
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FIGURE 3. Each column, as shown in FIGURE 3, represents 
one field of data across all customers. 

Effectively, this restructuring of data allows 
for simple questions, such as, for example, how many 
5 customers who are female, live in the state of 

Minnesota, and make over $25,000, to be answered by 
simply going through three columns (fields) of 
information, rather than all of the records for all of 
the customers which is done in a standard database query 
10 environment. 

To illustrate this fundamental difference, we 
look to FIGURE 1, illustrating a standard database of 1 
million customers. Performance of a query, in 
accordance with the above example, of how many customers 
15 are female, live in the state of Minnesota, and make 
over $25,000, illustrates the difference between 
standard database data structure and that of Database 
Link™. Because the data is stored contiguously for each 
individual, as a record in a standard database, the 
information desired is only several (or at the most 
several hundred) bytes apart on the hard disk. The 
standard database system will read in the entire record 
for each customer, -decode the 3 fields in question and 
make an evaluation as to whether or not the record in 
question meets the criteria that has been defined. This 
operation would be repeated for the million times that 
is necessary to complete the file. Specifically, the 
data for State followed by Zip, Age, Income, City, 
Gender and the remaining fields will be reviewed for 
each of the 1 million customers to determine which 
customers satisfy the query. if there are 1000 fields 
of data, there will be 1 billion pieces of data (1000 
fields * 1 million customers) reviewed. 

On the other hand, in the Database Link'" 
35 structure, illustrated in FIGURE 3, these three pieces 
of information are likely to be millions of bytes apart 
in the data file for any one individual. Searching back 
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and forth to each field for each individual would 
totally negate the advantages that are inherent in the 
columnar data approach. The approach that Database 
Link™ makes is to evaluate all of the decisions for one 
5 field at a time. These results are then inter combined 
using a technique called bitmaps. 

Specifically, when the above example query is 
performed in Database Link™, all of the data for the l 
million entries for state will be reviewed, followed by 
10 a review of the 1 million entries for income, followed 
by a review of the 1 million entries for gender. The 
total amount of data reviewed in the Database Link™ 
system is 3 million pieces of data as compared to the 1 
billion pieces of data as shown for the standard 
15 database system. 

This difference becomes meaningful in 
marketing databases, when there are millions of records 
and thousands of fields, as in the example above, 
illustrated in Figures 1 and 3. This example shows that 
20 the Database Link™ system reduced the amount of data 
reviewed by 997 million pieces, when compared to a 
standard database system. This reduction of data 
reviewed translates into faster query result times. 

Because Direct Marketing databases involve 
25 large files, even simple queries, such as the above 

example, result in quite inefficient operations in the 
standard database system. In an attempt to reduce the 
inefficiencies, standard database technology uses keys 
(indices) to get faster access to a particular record in 
30 the file. These keys are stored and separated from the 
data and allow a database system to make certain 
decisions without reading the entire record. If the 
query that a user wants to make to a file involves data 
that is keyed, then the data can be accessed cruite 
35 quickly. 

Keys work very well in databases where nearly 
all of the queries are done against a few significant 
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fields. For example, a customer service database can 
have keys by customer name, account number, and an order 
number. Information can then be retrieved by these keys 
in an almost instantaneous fashion. The problem with 
5 keys is that they require significant amounts of disk 
overhead to maintain. Keys can require up to 10 bytes 
of space for each record for each key. Thus, ten key 
fields on a l million customer file costs an additional 
100 megabyte of disk storage. 

gol " Timar f T "-" arted) Pile Stmeh.r a 

Database Link™ solves this problem by doing 
away with keys altogether. Rather than speeding up file 
access by setting up specific keys, Database Link™" 
speeds up file access by segmenting all of the 
information from one field together into one spot on the 
disk, thus dramatically reducing I/O and simplifying the 
process of evaluating criteria for reports. 

This columnar file structure dramatically 
reduces the amount of I/O that is required for a 
particular query or set of queries, with this type of 
data structure, the Database Link™ server can scan a 
given query and identify which fields are necessary. A 
look-up table defines where this information is located 
and then only this particular part of the database has 
to be scanned to answer the particular query. 

The challenge of this type of approach is in 
how to combine results across multiple fields, once they 
have been designated. The present invention uses a 
technique called bitmapping to address this problem. 
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A bitmap is a series of computer words strung 
together in a one dimensional array, it looks at data 
as a series of bits rather than a higher level data type 
such as an integer or floating point value. A bitmap 
3 5 is viewed as a uniform series of bits and within that 

bitmap, the word boundaries that are normally meaningful 
in how the computer "chunks" up its information are 
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meaningless. Each bit represents a piece of data that 
can be a yes or a no. 

Bitmaps are used to mark all records within a 
particular column that meet a criteria. For example, if 
5 the criteria is "gender is male", then a bitmap is 

created that has as many bits as there are records for 

* 

that particular database table. For each record where 
the gender attribute is set to male, the corresponding 
bit in the appropriate bitmap is set to a 1 = yes. 

10 The major advantage of bit level data is that 

it allows for the storage of huge amounts of yes/no type 
of information within a relatively small amount of 
space. Because of the eight to one ratio of bits to. 
bytes, a database with 2 million customers can be 

15 represented with 250,000 bytes of internal data. 

Bitmaps provide another advantage to the 
Database Link™ paradigm: they can be combined together 
in a very rapid fashion to provide complex results. 
Very few database queries actually consist of only one 

20 criteria as in the above "gender is male" example. Most 
queries consist of many criteria that are combined in 
some fashion using . boolean arithmetic to arrive at a 
final subset of customers that is meaningful to the 
requester of information. In these types of cases, 

25 several bitmaps must be combined together to form some 
type of aggregated result. Figure 11 illustrates one 
method of combining multiple bitmaps resulting from a 
complex query. 

For example, for the query select "all males 

3 0 who live in the state of New York", two bitmaps can be 
computed- -one for all males and one for the residents of 
the state of New York. The answer to the composite of 
these two criteria can be derived by doing a very fast 
bit -level AND operation. With current architecture 

35 supporting 64 bit operations, data is stored in chunks 
of 64 bits. This allows for one CPU instruction to 
perform the equivalent of 64 AND operations if they were 
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performed on a record by record level. Thus, for the 
query to select all males who live in the state of New 
York, rather than combining the two bitmaps generated 
from the 2 fields, the computer actually combines the 2 
5 bitmaps in chunks of 64. Logically, however, bitmaps 
are combined bit by bit. For instance, customer X meets 
the query criteria if the bit in each bitmap 
corresponding to the customer X is set. However, the 
computer as explained above combines the bitmaps 64 bits 
10 at a time. 

The 64 bit processing performed by the 
computer speeds up the process of determining whether a 
particular customer satisfies the query while using less 
memory. In contrast, standard relational database 

15 processing examines an entire record to determine if the 
query is satisfied, and then proceeds to the next 
record. This standard method required one operation for 
each record. Since the present invention processes 64 
bits at a time rather than one operation for each 

20 person, processing can be performed for 64 people in 
parallel. This produces a dramatic reduction in the 
amount of work that the computer has to do. This is 
possible due to the fact that the server looks at words 
multiple bits at a time. Therefor because 64 bits are 

25 stored as a word, when bitmaps. are combined it can be 
determined whether 64 people satisfy a given criteria 
for one combination. 

It is only after the computer has done word 
combinations that a searcher can .go back and look 

3 0 through at each bit to determine whether a customer 

actually met the criteria and very quickly get a count 
of how many actually met the criteria. 

The one challenge that must be met when using 
this approach is how to count bits within a bitmap in a 

35 very efficient fashion. All of the above gains would be 
lost if it required large amounts of resources to count 
the bits that are contained in a results bitmap. The 
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present invention includes a procedure whereby a mapping 
algorithm is used to take 16 bits at a time, convert 
them to an integer value (0 to 65,611) for use as an 
index into an array of that length that stores the 
5 number of bits contained within that 16 bit segment. 
This approach allows for very rapid bit counting across 
very large bitmap arrays. 
Iterative Capability 

Many of the procedures that marketing 

10 professionals perform are iterative in nature. One 
query provides information that is used to further 
define a particular query. For example, a company may 
have a budget to mail 100,000 catalogs to its customers 
and the marketing director needs to define the optimal 

15 target audience to optimize the value of this mailing. 
The user of the system would like to test different date 
and dollar range combinations to produce this exact 
number. Database Link™ models this real world situation' 
by storing a "ring" of the 20 (or whatever number 

20 optimizes performance with the resources available) most 
recent queries that have been used by a particular user. 
Each node on the ring contains query definition as well 
as a bitmap of those records that met that particular 
criteria. As new queries are entered, they are broken 

25 down into pieces and each piece is matched against the 
queries that are stored in the ring. If a match is 
found, then the query does not have to be reexecuted. 
The present invention uses a basic FILO (first in, last 
out) algorithm for tracking which queries to store in 

30 memory. To further optimize the performance of the 

overall system, more sophisticated weighting algorithms 
similar to those used in contemporary operating system 
memory swapping algorithms could be used. 

FIGURE 11 is illustrative of a complex query having 

35 multiple bitmaps 41-48. Each bitmap 41-48 stores the 
result of a particular query on a field of data. These 
bitmaps can be combined by the CPU using logical 
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operations such as AND and OR to produce increasingly 
complex query results 49-55. As explained above, the . 
processing of this bit information is extremely 
efficient since a single CPU instruction can operate on 
5 the bits corresponding to 64 customers in parallel. If 
bitmaps 41-48 are stored on the ring, and a new query 
matches bitmap 43, then this new query is not 
recalculated. The elimination of this processing 
further reduces search time. 
10 Relational Strueturo 

Database Link™ has made a third advance in 
making this technology work for marketing applications: 
it allows for relational marketing queries. As shown in 
FIGURE 4, most of the applications that use any of the 
unique types of data storage contained in Database Link™ 
are flat -file paradigms: they enable fast and efficient 
queries against one rectangular file, not several files 
joined together in a more real world representation of 
data. Database Link™ actually stores inverted indices 
to gain access across multiple data tables. 

Complex Bitmai 
Customer Level 

As shown in FIGURE 4 Database Link™ involves a 
number of different file structure types. In the 
embodiment illustrated in FIGURE 4 there are a number of 
different file types: customer level 20; subsidiary 
level 22-24; purchase table 26; product/line item detail 
28; and promotion history 30. 

Customer level information 20 is the hub of 
the Database Link relational structure. The data is 
stored with one record of information for each customer. 
The information stored within the customer summary file 
as shown in FIGURE 4, would be information uniform to 
all listed customers. For example all customers have an 
age, income level, gender and state. 
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Subsidiaries 22-24 represent data that is 
present for a portion of the customer table, thus it " 
represents a one to few relationship. Each subsidiary 
5 is mapped back to the customer record with a bitmap that 
contains one bit set for each record in the subsidiary 
table that matches to the customer record. 

Purchase table 

10 The purchase table 26 contains multiple 

records for each customer. Each record represents one 
activity transaction made by a particular customer. The 
purchase table is linked to the customer level table by 
an index that contains the number of purchases for each 

15 customer. Customer records and purchase records can be 
joined together by starting at the top of the respective 
columns and referencing the appropriate element within 
the purchase column. 

20 Product /Line Item Detail 

Product level detail 28 is stored. in a similar 
fashion to purchase level data. The additional 
complexity is that this level of information is many- to- 
one with customer as well as with purchase level 
25 information. Two index arrays. are used: one for 

customer to product level and the other for purchase to 
product level. 



Promotion History 

Promotion history information 3 0 is stored in 
the same format as purchase level inf ormation. Each 
record represents one promotion event. 
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Data Types 

Database Link supports a variety of data 
types. Where possible, all data is stored in a binary 
format to minimize storage requirement and maximize 
5 throughput . 

Characters 

Character data is stored in a single byte, 
ASCII character set format. Data may only be in the 
range of valid ASCII printable character set. At the 
10 present time, Database Link stores all alphabetic data 
in an upper- case format. 

The operators that are available for all 
character fields are shown in Table 1. . 



TABLE 1: Character Fields 
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! is 


is equal to any member of the list of values 
that follows 


is not 


is not equal to any of the members of the 
list of values that follows 



25 Strings 

Strings are fields that contain 2 or more 
characters for a particular field. 

Because of the wide use of strings that have a 
certain finite number of valid formats (e.g., catalog 

30 numbers) , Database Link uses a hashing function/look-up 
approach to storing this information as an integer 
pointer to a table that contains the actual values. 
This approach allows the storage of up to 65000 unique 
values in a two-byte integer field. Given that typical 

35 strings of this type are 8 to 12 bytes in length, this 
technique provides an average of 5:1 data compression 
without any loss of data. Additionally, this data 
approach allows for integer word comparisons instead of 
byte by byte string comparisons that require many 

40 additional CPU cycles. 
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Valid operators for strings are as shown in 



Table 2. 



TABLE 2: Valid Operators 



is 


is equal to any member of the list of values 
that follows 


is not 


is not equal to any of the members of the 
list of values that follows 



10 



15 



20 



* 

All integers are stored in a standard binary 
format of 1, 2, or 4 bytes in length. This allows for 
maximum efficiency in terms of access and storage. 

Valid operators for integers are as shown in 

Table 3. 



25 



TABLE 3: Valid Operators for Integers 



>,<,>=,<=,= 


Basic boolean numeric operations 


over 


greater than or equal to the value following 


under 


less than the value following 


is 


is equal to any member of the list of values 
that follows 


is not 


is not equal to any of the members of the list 
of values that follows 
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Dollars 

Dollars are stored as integers with number of 
cents. Operators are the same as for integers. 



4 0 Dates 



All dates are stored in number of days since 
January 1, 1888. This modified Julian type of approach 
allows for dates between 1888 and 2064 in a two-bytes 
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(16 bit) integer format. Storing dates in this fashion 
allows for efficient operations. 

Valid operators for dates are as shown in 

Table 4. 



10 



15 



TABLE 4: Valid Operators for Dates 




during 



JLS 



is not 



DBLink has a special capability to select all 
records that are within a certain number of 
days, weeks, or months of today's date 

DBLink has the capability to select based on a 
seasonal basis: all records within a certain 
season across a certain number of years 

is equal to any member of the list of dates 
that follows 

is not equal to any of the members of the list 
of dates that follows 
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Floating Points 

Floating point values are stored as integer to 
reduce space and increase processing efficiency. An 
implied decimal point is stored with the data to allow 
for various decimal precisions. Operators are the same 
as for integers. 



In Database Link™, bitmaps are used to mark 
all records within a particular table that meet a 

30 criteria. For example, if the criteria is "gender is 

male", then a bitmap is created that has as many bits as 
there are records for that particular database table. 
For each record where the gender attribute is set to 
male, the corresponding bit in the appropriate bitmap is 

3 5 set to a 1. 
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Many marketing queries consist of a list of 
values rather than a specific single value. For 
example, the marketing question: How many customers 
made their first purchase during Christmas season over 
the past 3 years? would translate into a series of 
ranges that might be as follows: 

First_order_date is 10/15/91-12/31/91, 10/15/92- 
12/31/92, 10/15/93-12/31/93 

A standard SQL database would reduce this to a 
series of OR queries with each individual range 
translated into a between construct. This type of 
approach would be very inefficient for Database Link 
which must go through an entire column for each of the 
three sub-segments of. the query. Thus, Database Link 
includes a facility for evaluating a complex set of 
ranges and unique values in one pass of the data file. 
A list can consist of a series of values separated by 
commas or dashes. The comma signifies a unique value 
and a dash signifies all values between the value in 
front of the dash and behind it. Because all of these 
values are handled as one criteria, it is the equivalent 
of having a series of ORs representing each comma and 
the entire expression enclosed in parenthesis, thus 
forcing it to be evaluated in one lump for each 
individual in the table. 

Database Link also supports a variety of .wild 
card conventions for all string types. The most 
straight -forward of these capabilities include the 
following four wild card characters : 

*,#,©,? 

The asterisk (*) provides a means of matching 
all characters to the end of a particular string. A 
pound sign (#) matches a single numeric (digit only) 
character. The at sign (@) matches a single alphabetic 
character (A-Z) . Finally 



WO 95/11487 



PCT/US94/12074 



24 

Field Comparisons as a Special Case 

In all of the above examples, the criteria has 
been a fixed value. That is, a field of variable 
information is compared to a specific fixed value or ' 
5 list of values. In some cases, it may be desirable to 
compare two fields together to find a particular result. 
For example, the question: How many customers purchased 
more on their most recent purchase than they did on 
their first purchase? can only be answered by comparing 
10 the two pieces of data together in a pair-wise type of 
fashion. 

Cross Table Comparisons 

Database Link has the capability of comparing 
15 information across tables in various types of join 
operations. Each of these comparisons is done by 
combining bitmaps of specific within table information 
together in a particular fashion. 

20 Subset Comparisons 

Subset comparisons involve the synchronization 
of data between two columns where the data in each 
column does not match one to one with the data in the 
comparison column. Database Link handles these 
25 comparisons by using the customer level information as a 
reference. Database Link maintains a bitmap for each of 
the subsidiary tables as to which data records are 
contained in that particular table compared to the 
customer table. 

30 

Many- to-one Comparisons 

Many- to-one comparisons are much more complex 
in Database Link than other types of comparisons. Many 
to one comparisons allow for the joining together of one 
3 5 customer with one or more purchase /activity records of 
one or more promotion types of records. 
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Patterned Comparisons 

The. above descriptions apply to basic many- to 
one comparisons. Database Link also has the capability 
to aDply various patterns of comparisons to this 
comparison. Thus, rather than looking for the presence 
of any records that meet a particular criteria, the use: 
may want to know whether the first record only meets a 
criteria. The types of comparisons that Database Link 
allows are shown in 
Table 5. 

TABLE 5: Database Link Comparisons 



First 


The first record must meet the criteria specified. If no 
records exist, then the comparison fails. 


Second 


The second record must meet the criteria specified. If a 
second record does not exist, then the comparison fails. 


Third 


The third record must meet the criteria specified. If a 
third record does not exist, then the comparison fails. 


Last 


The last record must meet the criteria specified. If no 
records exist, then the comparison fails. 


Next to 
last 


The next to last record must meet the criteria specified. 
If at least two records do not exist, then the comparison 
fails . 


first 


At least one record after the first record meets the 
criteria sDecified. If onlv one record exists, then the 
ccmoanscr. fails. 


Last 2 


At least one of the last two purchases must meet the 


Last 5 


At least one cf the last five purchases must meet the 


Multiole 

*> 


Multiole records must tnee: the criteria. 


Two 


Two or more records must meet the criteria. 


Three 


Three cr more records must meet the criteria. 


Total 


The total cf all records must meet the criteria. 


Average 


The average of all non-missing values must meet the 
criteria . 


Count 


A certain number of records must meet a specific 
criteria . 
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Domains 

Domains allow for further constraints on the 
relationships with many transactions to one customer. 
For each of the above patterns of relationships, domains 
5 allow for the restriction of records to a certain subset 
of the actual records that are subject to the pattern 
matching. For example, suppose the user wanted to know 
how many customers had three purchases of $25 or more 
during 1992. A domain could be defined that would limit 
10 transactions to 1992. The following query would then 
get the answer to this question: 

Three_purchase . order_amount over 25 
In this example, the domain would limit 
transactions to the year of 1992 and the query would 
15 count those customers who had at least 3 purchases over 
$25. 

Universe Maps 

Users frequently use the same query on many 
20 different occasions. Database Link can save these 

queries as a universe and save the cost of creating the 
bitmap. Universe maps can be an individual query of the 
complex combination of several different queries put 
together. 

25 

Query Processing 

The processing of the. query is handled in a 
sequential fashion and is shown in Table 6. 
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TABLE 6: Query Processing 



Step 1 


The server receives the query from the user as an ASCII 
character string. All queries are placed in a buffer 
' where they are accessed as the query engine is available 
for processing. Once removed from the queueing buffer, 
the query is parsed into a series of basic queries . Fcr 
example, the query: 

Gender is male and State is Minnesota 

• 

would be parsed into two basic queries with an and 
operator connecting the two together. 


Step 2 


The individual pieces of the cruerv are placed on a 
decision tree- with each branch node containing either a 
basic query or an operation. The above example would 
contain two branches with a basic query element at the 
end of each branch. More complex queries containing 
parentheses and various combinations of ands and crs 
would be broken down into more complex branch structures 
representing the proper order of precedence. 


C ^ £3 "3 

o cep j 


DBLink processes each of the queries at the end cf each 
of the nodes. The" result of this processing is a series 
of bitmaps that .represent the results of each of these 
crueries . 


Seep 4 


DBLink proceeds to combine the bitmaps together based on 
the operators that reside at each of" the junctions 
between the individual queries. Once this process has 
been completed, an overall bitmap representing all of the 
table elements that meet a certain criteria has been 
created. The bits that are set on this map are then 
counted and the result is returned to the client. 



Post Query Processing 

After the queries have beer, processed and a 
final result has beer, created, it is typical that 
additional information needs to be gathered about the 
customers that have beer, selected and counted. Reports 
and other information can be generated by Database Link. 



Activity/Line Items Spec 
Marketing databases often contain a complex 
relationship between the customer level data, activity 
level data, and product /line item level of data. Within 
25 the Database Link Database, there is a many- to-one 

relationship between customer level and activity level 
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records. Additionally, there is a many- to-one 
relationship between activity records and line item 
records . 



10 



20 



Query Level 

One of the most complex issues in dealing with 
queries at the purchase and line item level is the level 
of outcome for the query. The level of outcome is 
whether or not a resultant count is in customers, 
activity transactions, or line items. The level of 
outcome is totally separate from what information is 
used to compute the result. Thus, customer level 
results may use purchase and line item level information 
while line item level results may be affected by 
15 purchase level information. There are essentially three 
levels of queries across the Database Link system: 

• Customer level queries. Customer level queries are 
by far the most common type of queries in Database 
Link. The result of a customer query is the number 
of customers that meet a certain criteria. The 
most common type of customer level query is the 
query that is asked at the customer level. For 
example, "gender is male" will give you an answer 
25 that says how many customers are males. 

One may also want to answer queries at the 
customer level that are based on information at the 
activity or line item level. For example, one may 
want to know how many customers bought over $50 
30 worth of line item in 1992. This requires 

information from the purchase and line item level 
to be summarized into an answer regarding the 
number of customers. These types of queries all 
begin with some type of prefix that tells Database 
35 Link to take this query to the customer level. 

• Activity Level Queries. Activity level queries 
give results that are at the level of individual 
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transactions. A typical question might be: how 
many purchases were made in 1992 from the Teens and 
Tots Catalog. The resultant answer would be the 
number of transactions that met all of these 
5 criteria. This answer will not say how many 

customers made these transactions, only the 
absolute number of transactions that were made at 
this criteria. 
• Line Item level Queries. Line item level queries 

10 give results that are at the level of individual 

line items within a particular activity. A typical 
question might be: How many 486 computers were 
sold in the first four months of 1993. The 
resultant answer would be the number of items that 

15 contained a 486 computer. 



Query Domains 

Query domains are parts of queries that 
restrict the range of records that are used by another 

20 part of the same query. They have little meaning by 
themselves, but provide "staging" information for 
another part of the query. Query domains can also be 
applied at any of the three levels that queries can be 
constructed. Examples of the types of questions that 

25 are answered using domains are as follows: 

1. How many customers bought over $100 in 1992? In 
this case the domain is all activity transactions 
that occurred in 1992 . 
30 2. How many purchases were made in 1992 from the Teens 
and Tots catalog that included teen clothing? The 
domain for this question is the activity 
transactions that included a teen clothing line 
item. 
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Activity Queries 

• The Query Type. The query type defines the pattern 
of relationship that is to be selected from amongst 
the activity records for a particular customer. 
5 Examples of query types include first activity, 

second activity, or last activity. The result of 
this query is the number of customers who have 
activity records that meet the specific criteria. 

Some query types are unique in that they refer 

10 to one specific record. The above examples all 

refer to a decision that can be made on one record. 
Other activity queries such as last 5 activities 
look to see if any one of the past five activities 
meet the criteria of the query. 

15 • Special Types. All of the query types that are 

defined above work in a similar manner. There are 
three types of special queries : 

Total_activity : The total activity query looks at 
the total amount that follows. An example: 
20 Tot al_activity .amount over $50. 

Average_activity : The average activity query looks 
at the average amount that follows. An example: 
Average_activity. amount under $20. 

Activity_count : The activity_count query is unique 
25 in that it does not have any field name that 

follows.^ It only counts the number of activity 
records that meet the criteria. An example: 
Activity_count over 2 . 

30 • The Activity Domain. The activity domain defines 

the domain of activity records that are to be 
included in the query. This domain defines the 
"aperture" that frames those activity records that 
are to be included in the particular query type. 

35 An activity domain consists of a series of activity 

level queries that are combined together to define 
a bitmap of activity records that are to be 
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considered for the particular query type. For 
example, an activity domain could be defined to be 
1992 purchases. The activity domain could be named 
1992_purchases and be defined as 

activity . order_date during 1992 and activity .amount 
over $0. The full query would be 

first_activity. amount over $50 and activity_domain 
is 1992 purchases. This query would select all 
customers whose first purchase in 1992 was over 
$50. 

All activity domains are defined as a function 
of pure activity functions. For example, a domain 
cannot be defined to be f irst_activity . amount over 
$0. 

The Line Item Domain. The activity domain defines 
the domain of activity records that are to be 
included in the query. In the case of an activity 
query, the line item domain also restricts the 
domain of activity records that are considered. 
The line item queries are first combined into one 
result and activity records are marked that have 
any records that are marked. One could then define 
the following domain as large_shoes: line item. code 
is shoes and line item. size gt 10. The activity 
query: first__activity. amount over $50 and 
activity^domain is 1992jpurchases and line item 
domain is large_shoes would select those customers 
who had a first purchase over $50 in 1992 when that 
order included large shoes . 

Multiple Domains. Domains can be combined together 
to form very complex selections of activity records 
and in turn customers. One could define a query to 
be: last^activity. amount over $50 and 
activity ^domain is 1992_purchases and 
activity ^domain is 19 93 _pur chases and line 
itemjdomain is large shoes. 
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Line item queries are much more limited in 
scope than purchase queries. 

• The Query Type. The only standard query type is 
5 any_line query. This query groups all line items 

together into one batch and performs a simple 
query. This would be identical to making 
any_activity query with a specific line item 
domain. However, because the activity level 
10 definition is not needed, using the any_line item 

definition would be considerably more efficient. 

• Special Types. All of the query types that are 
defined above work in a similar manner. There are 
three types of special queries: 

15 Total_line item: The total activity query looks at 

the total amount that follows. An example: 
Total_line item. amount over $50. 
Average_lxne item: The average activity query 
looks at the average amount that follows. An 

20 example: Average_line item. amount under $20. 

Line item_count: The activity_count query is 
unique in that it does not have any field name that 
follows. It only counts the number of activity 
records that meet the criteria. An example 

25 Purchase_count over 2. 



All line item queries can be followed by any 
combination of purchase and line item domains. The 
only difference is that purchase level domains must 
be expanded to the line item level rather than 
having line item level data reduced down to the 
purchase level. In this case all of the line item 
level records that meet the criteria of the 
purchase domain are marked. For example: 
Total_line item. amount over $50 and line 
item_domain is large_shoes and purchase_domain is 
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1992 purchases would select all customers who 
bought over $50 worth of large_shoes in 1992. 

Database Link Reports 

5 The Database Link reporting engine is the 

direct complement to the other part of the Database Link 
program : the query engine . The query engine ' s primary 
task is to identify which individuals are to be 
examined. Each individual that is to receive special 

10 attention has a bit set that marks the record for 

special consideration. The reporting engine accumulates 
some type of information about those individuals that 
have been marked. 

The basic idea of the report engine is to 

15 accumulate counts or totals into an n-way data matrix. 
Each of the dimensions of the data matrix is defined by 
one of the dimension objects that are allocated off of 
the report structure. 

The object-oriented approach allows for a wide 
20 variety of reports to be built around a few core data 
structures and functions. 

The Report Structure 

The report structure contains all of the data 
25 and program code to execute a particular type of report. 
A report is of a particular type. A report consists of 
a series of dimensions (up to five) . 

typedef struct { 

int report_type ; 

30 int n_of_dim; 

DIMENSIONS *dim[5] ; 

BITMAPS *ref erence [5] ; 

int j oining_tables ; 

MATRIX counts ; 

35 MATRIX profits; 

MATRIX orders ; 

MATRIX sales; 

} REPORT; 

4 0 Table 3 
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The Dimension 

A dimension stores all data and processes 
relating to a particular dimension in a report. 
Currently, Database Link is set up to process reports 
5 for up to four different dimensions. A dimension 
consists of several basic pieces of information: a 
field in the database, a pointer to a column of data, , 
set of labels, and a look-up function together with 
associated working structures. The current definition 
10 of the dimension structure is as follows. 

typedef struct DIMENSIONS { 

FIELDS *xfields; 

unsigned char *data; 

unsigned char *start_address; 

15 f nt channel 

1 ?J t (*lookup_fxn) (); 

char table name [30] ; 

TABLE *hash_table; 

unsigned short *lookup_map ; 

20 unsigned char **lookup map2; 

LABELS * labels; 

} nt current_label ; 

^ n t max_l abe 1 s ; 

int start_pos; 
25 mt 

} DIMENSIONS; 

Table 4 



i ^ — — t 
bytes_to_move ; 



30 



In the above structure, the first element 
points to a structure called xfields. This substructure 
contains the information relevant to the field that is 
being used for a particular dimension. 

The next several lines contain information 
35 about the actual column of data to be processed by this 
particular report. The *data is a pointer to a 
particular element of data within a column of data for a 
particular record of data. The *start_address is the 
address of the beginning of the data column. This is 
40 the point where the column begins, independent of where 
processing might be at a particular point in time. This 
data element is used for reports that must be reset and 
reprocessed several times. 
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The next several lines within the dimension 
structure are used to take a data point and perform a 
lookup function that returns an index into a set of data 
arrays. The pointer *lookup_fxn() is a pointer to a 
5 function that is unique to the particular data type that 
is specified in the xfields data structure. The various 
lookup functions are specified in the following section. 
Hash_table, lookup_map, and lookup_map2 are data 
structures used by the various lookup functions. 

10 The last block of elements within the 

dimension structure relates to the labels that are used 
along that particular dimension. For example, in the 
case of a dimension based on gender, the labels would 
consist of male, female, and unknown. The labels data 

15 structure contains an array of label structures, each 

consisting of the following elements: 

typedef struc{ 

char * banner; 

int position; 

20 int low_level; 

int high_level; 

char char value [10] ; 
} LABELS; 

25 Table 5 

The banner is the actual label to be printed 
on the report while the other elements are used for the 
actual creation of a report . 

30 The current_label element on the dimension 

structure is an index to the next available label. This 
is used in situations where the values are not known 
ahead of time and the list of labels is being filed in a 
dynamic fashion. The max_labels is an element that is 

35 the total number of labels that are used for a 
particular dimension. 
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The Lookup Routines 

The lookup routines are the critical functions 
that take an incoming data point and use the data stored 
on the dimension structure to determine an index value 
5 to the data matrices for a report. There are several 
types of data structures, each optimized for a 
particular type of data and whether or not the values 
for a dimension are known ahead of time. 

10 Character Fields 

Character fields use an unsigned character and 
thus have a maximum of 256 unique values. Characters 
can thus be mapped to a particular index by using an 
allocated array of 256 values. For each data point that 

15 needs to be evaluated, the data value of the unsigned 
character can be used as an index into an array of 
shorts that contains the value to be assigned. This 
represents the most efficient method of performing a 
lookup function. 

20 , Small Integer Fields 

Small integers are stored in one byte fields 
and thus are mapped in a similar fashion to single 
character data fields. 

Medium Integer/Date Fields/Fixed Strings 

25 Medium integers, dates, and fixed strings are 

stored as 16 -bit integers and thus have a maximum value 
of 65535. These fields are also dealt with as a single 
lookup operation on an array of shorts that is 65536 
elements long. Each element contains the index value to 

30 the data matrix. 

Large Integer/Dollar Fields 

Because of the very large number of 
possibilities for a large integer, . it is not possible to 
use a simple map function to put individual values to 
35 particular index values. However, because most integers 
(dollars in particular) are between 0 and 20,000, it is 
possible to directly map these smaller values to an 
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index while using more computer intensive methods only 
for the larger values. 

If the value exceeds the length of the map 
(20,000), then these alternative methods are used. If 
5 pre-defined ranges are in effect, then a simple loop is 
used to evaluate each of the ranges. If no ranges are 
in effect, then a hashing system similar to that used in 
character strings is used to efficiently map the values 
to a particular output. 
10 Character Strings 

Character strings are the most inefficient 
data type to process. The lookup function for 
characters uses the same hashing function that is used 
in the load program. The character string is hashed 
15 into an array of pointers to linked lists. Once the top 
of the list is accessed, the lookup function traverses 
the list until a match is found. If no match is found, 
then a new link is added at the end of the list. 

A special case of character strings is the 
20 field that contains exactly two characters. Several 
commonly used strings such as state and country codes 
use two character fields for storage of data values. 
Because valid ASCII character values must be between 1 
and 128, it is possible to build a 2 dimensional 128 by 
25 128 matrix (16384 total elements) that stores the index 
value for each possible combination of the two 
characters. This allows for using the two characters as 
indices into this array that contains the index into the 
data matrix. 

30 

Report Processing 

Once the report and dimensional structures 
have been populated, the processing of reports proceeds. 
This is always a two-part process: 1) a bitmap is set 
35 that determines which cases will be included in a 

report, then 2) the query engine proceeds to fill the 
data matrix with accumulated data. The following is an 
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outline in pseudo-code for the creation of simple two- 
way cross-tabs reports: 

setup report two-way matrix 
setup row dimension 
5 setup column dimension 

for each case in the table 

is current bit in bitmap set 
row = lookup of row data 
column = lookup of column data 
report .matrix [row] [column] increment by 

increment row data 
increment column data 
increment to next bit in bitmap 

15 

Once all of the set up has taken place, the 
actual processing is quite simple. Prior to the actual 
generation of the report, a query has been executed that 
20 produces a resultant bitmap that marks every "record" in 
the table that should be included in the report. During 
the setup of each dimension, a pointer to the top of the 
data column for that particular dimension is created. 
In the case of a two-way crosstabs, this involves the 
25 setting of two pointers- -one for the row variable and 
one for the column variable. The dimension structures 
also are set to point to the appropriate lookup 
functions . 

The most common application of this is for tracking 
30 data on multiple purchases for one individual. With 
this type of many-to-one relationship, there are many 
possible patterns of relationships that can be formed. 
We have developed specific retrieval functions that 
allow us to get at data relating to the first and last 
35 purchase that a customer has made in a particular mode. 

The invention is further described in Appendices A, 
B, C, and D. 
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Appendix A for U.S. Parent Application 

DATABASE LINK SYST EM 
15 BACKGROUND OF THE INV ENTION 

Filed October 22, 1993 

Appendix A: Main Routine for the FDC* Prototype Executable 

6 1993 FDC , Inc. 
20 All Rights Reserved 
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- MODULE: FDC.PROTOTYPE.C 

- MODULE DESCRIPTION: 

- nun routine tor the FDC_PROTOTYPE executable. 

- AUTHORS: 

*® Kelly Westman Digital Equipment Corooratxjn 
~ Susftd PtUai Digital Equipment Corporation 



10 - CREATION DATE; 30-Jury-1992 

- DESIGN ISSUES. 

- PORTABlLmr ISSUES: 

*" Astumes logical ^naster.file" is present This defines the file which 

- oescnoes tne f»etos contained in the section file erf data. 

15 - MODIFICATION HISTORY: 

"* 30-Jury* 1 932 - Original 

11 -May- 1993 - Cnanes Matmskog 
" - Removed f ail_and_exrt( J , fail_and_exrt_syserrO; 

~ - Reoiaceo witn error^nandlerO. . More"graceful exits ana retries 

- Uodated exit_normai(): to oo some cleanup oaf ore tne exit. 
25-May-1993 • Cnanes Maimsnog 

- - Line uo ano center some Header information. puU out error mesa routine 
20 *" 1 5-June-1 953 - Cnanes MatmsKog 

Z " EfTor nan0l6r snou,d c *»a f out all the message butters before sending an 

- error message to tne client On the server stoe we wilt sena tne butters 
^ to tne screen tor oebug use 

"* • pf ee uo memory tne msen_comma routine uses 

*" 1B-June-1993 - Dan Tnomas 

"** . - Add Customer to Purcnase. Customer io Preouce and Purchase to Proouct 

~ ftusn and UnmaoCtosefite routines & related external data 

21 • June_ 1 9S3 • Cnanes Maim s*og 

- Center^ string oaseo on 70 cnaracters 
25 ** 30-Sep-1993 » Cnanes Maimsxog 

~ - Update err or_nanoier( ) cans to mciude ERROR message type 

r 

- INCLUDE FILES 
•/ 

•include <stdto> 
tmctuoe «unotio> 
3 0 emctuoe <fiie> 

emciude <mam> 
amctude <stsoet> 

r 

*" error_nandier specrfic 
V 

•mciude lessen or^numoers h" 

2 c amciude iac_parser n" 

J ° amciuce tcc_prototyoe h" 

amciuoe *hasn rr 
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r 

- DMQ speafic 

7. 

#mouoe 'ldc_omq_strua.h" 
5 tinauoe loc_cmq_types.rr 

#mduoe "omQSusero.symDOf.h** 



10 
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•oeftne ClS_EOt 
aaefine DBG TRUE 

•NuIIStnng = ~; 

«t OMQ^CONNSCTEO. 
pams_aaor target; 
«"t msg_o«set; 

cnar 'ni*0«PUl.b'uff«rtMAX BUFFERS] 

» nn fl ^ouffeftFll.E3uFFER LENGTH) 

Pams_get_msg_ciass; 
won Pams_puCmsg^type=MSG SINGLE TYPE 
«« WS-Put.m$g.cias*«PAWS.MSG^CLAS 
extern cftar •msg^get buffer 



cnar •pams_m M sage; 

rowk_hdrj •ntwk_rtdr. 
« read_niwi_nar = TRUE 

«l ntwk_pkt_typ© ; 
«t P*e*et_p7ocessing = 0 

2 0 °* r •Query^keycoae * ' 



*Ouery^ label r - 

25 ^ 0uery_fnename[7] 



30 



OD.namefPiLE^NAME^LENGTH] 

m| to _ver3Kjn_oatef3l). 

»«Liuoaia»ary; 

*«t_purcna*e. 
»ei_proouct: 

1ut>sia.ary^uoett(SU8^FlLE MAX] 
Ou©ry_rtum*0; 
Qtttom aad^queryf 1 28); 

*condnjonai_query; 

signed nt reset_sepmentaiiorv 
unsigned cnar " 



int 
cn 
int 



unaoneo « o. l e le _ pur _ pra _ lrto . „ J.™ m £ «« «•* eu*omar to prooua map coum, 



35 ~ Datri&jtion specific 
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GET_FIELD_NAMEO { \ 



•tsign o strcnrtpams^message, 'Q'J; \ 
•wncn 



cim 0 : memcpy fdist_infof0.f>ekl_riame. pams_n.assage. ats »gn . pams message) \ 
da^tfifofij Tieto_fwmB|atsigrvpams message] a vn 
break; \ 



1 : memcpy (rtab_info(i) ftz.fiew.name. pams.message. atsign - pams message) \ 
xtat)^infD(j) hz_fieJd_name(ais»gn-pams message) s 10* \ 



case 2 : memcpy (xtat».infofi).vt.field.name. pams.message. atsign - pams message)' \ 
xta&.mfofi).vi_fieid.name{atsrgn-pams message) « KT\ 
break: \ 

case 3 : memcpy f xtab.mfofi) pg_field_name. pams.message. atsign I pams messaoe) \ 
xtaD.intofiJ.ps.fieia^namejaisign-pams^message) * XT.\ " 



pams_message » atsign ♦ v \ 

) 

•define GET_TABLE_NAME() { \ 

atsign = strenn;pams_message. '(B') \ 
switch 

O 



15 UM oams.messag. atsign . pams.message, \ 

dis!_info(i).taDie_name|aisigrvpams messaoe) = -V0* \ 
break: \ 

L^S^^'' hz T taDto - namB - *ams_message. atsign - pams message, \ 
xtao_mfo[i) nz_tabie_nameiatsigrvpams messagej = w\ * 9 

brean \ ~ 

case 2 memcpy f*ab_mfo|i) vt jable.name. pams message atsign - pams m« MQ «i v 
«ab_mfo[,J vtjaoie_name|ats.grvpams message) * \0\ P^^^message). \ 

break: \ " 

case 3 memcpy (sttbjrtfofi) pg.taPie.neme. pams.message. atsign . pams messaoe) v 
20 ««t>-^o|.)pgjaoie_name{atsigrH»ms message) >v\ pams - m ««oe). V 



pams_message = atsign ♦ i \ 

•define GET_MIN_VAIUE() { \ 
swctcn 0) \ 

H 

caseC cist jnto(i) m^vaiue = atoupams message) \ 
orea* \ ~ 

case 1 nao^mfo(i) fi2_mm = atoupams messaoe) \ 
brea*. v ~ 

case 2 xiao_mfo[t, vr_mtn = atoitpams message) \ 
prean \ 

case 3 xtaD_»nfo[ ( ) pg_min = aiojipams.message). \ 

pams_message = sircnr(pams message. *<&') ♦ 1 \ 

> 

•define GET_MAX_VALUE{) { \ 
switcn Q) V 

n 

case 0 : Cist_mfo[i) max.vame = otoitpams message) \ 
break. \ * 

case 1 : *aDjnfpfi).nz_max = atoitpams message) \ 
break: V w '* 

case 2 : xtaojnfo(i) vt_max = atonpams messaoe) \ 
35 break. \ ~ * 

case 3 : xtaojnfoji).pg_majr = atoitpams message) \ 
break: \ * * 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



43 



PCT/US94/12074 



n 

pams message * sravtpams message. *©') ♦ 1; \ 

} 



xtao_into_t xtaojnfo(i01: 

iftl xtaD_mfo_tox; 

CisxjrxhJ dist_info(10J; 

int dist_mio_iox: 

int num_of_dist: 

char *drst_stan_pos: 



- Config file specific. 

10 * 

•define MAX TOKEN_NAME LEN 26 
#defme MAX_TOKEN_VALUE_LEN 40 

char confrg_fiie{BO) = "admm^dinconfrg.dar; 
handle ht r handle to a nasn taoie 7 



15 7 



Not sure wnat specific. 



int 
m 
mt 
tnt 



max_numoer_of_erts = 0. 
max_product_Dits = 0. 
max_purcnsse_ons = 0. 
row_count = 1 ; 
brt_counts[256l; 

mrtiai occurrence=TRUE. 



Deoug vanaotes. 



*/ 



int parser_oeoug: 
FILE "*dotxjg_fne 



External declarations 



2 5 •/ 
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enem strua Prtmap 
exism mt 
enem int 



*supe»_mas!Br_DfTm8c. 
msg_outstanomg. 
m$;_nc^ouis;anotrg. 



r ftusn variables •/ 
extern mt cus_pur_cnnl 
extern int cus_pro_cnnl 
extern mt pur_prd_cnnl. 



r channel - customer-ourcnase map count for OPENMAPFllE */ 
r cnannei - custom er«pr oauct map count tor OPENMAPFiLE 7 
r cnannei - purcnase-produa map count for OPENMAPFiLE 7 
enem struct address.range cus - pur_aoor. r map adoresses - customer-ourcnase map count tor 
OPENMAPFILE.UNMAPCLOSE */ 

extern struct aocress_range cus_pro_accr r map addresses - customer -product mac- count tor 
OPENMAPFILE.UNMAPCLOSE 7 

extern struct aooress_range pur_prc_acar. r map addresses • purcnase-proouct map count for 
OPENMAPFILE.UNMAPCLOSE 7 



35 



extern mt 
extern mi 
extern mt 



cus_pur_map. 
ajs_prc_mao. 
pur_pre_map. 



r 0=not mapped, ismaoped. customer to purchase mao count data 7 
r 0=not mapped. 1 =mapped. customer to prooua mao count data 7 
r 0-not mapped. 1 =mapped. purcnase to product mao count data 7 



r header flag mformation 7 
short mt neaoer_flags(NUMBER_OF_FLAGS): 
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~ Function prototypes for this moouie. 

void nuiljermmate(); 
voio KWd^corrfigjiieO; 

Bnrt^Omq^DuffftrsT): 
freedom q^t5u«ers(); 

mi upper_strcmp(). 
axit_normalO; 
tong cneck/et(); 



10 



- Ee^S^L w ^ W c d#f,nfl,0a5 ^ MASTER-PILE, mtoiats 
~mTh^2l^L! n ^ « P^eo and dee* with, tf EXfT ccmmind 

- r^^r^" 0 ^ " Cttplayefl and e*ts 
«OU©ry comma no. the Query u resotved. and the results put tn the oane 

- ^sTT^oTl^" ^ * msoiay ^ ^ p™ 

15 ^ ** L " ««mp*e eno then enosampimg routine is csbod 



mem<argc. argv) 
int argc; 
cnar 'argvfj; 

{ 

i. j. ten. status. num_taoies: 
tong tnt attaeh_mooe. qjype 

20 S? r q_namefOUEUE_NAME LENGTH] 
tong art q_namejen. 

pams^addr new}>roeess num 
cnar it; 

cnar *auign: 

cnar •save_pams_mss 
cnar legmentahon^enar. 
vort *w»tae_vanaoies(). 

cnar temp_sinngi5fl5} 

cnar ^amp_stnng_pomTer 

2 5 cnar temp^stnngBSfeS) 

extern struct expression *current_expr 

™ pW_oeoug = FALSE, 

■nt p*ct_simapg = FALSE. 

r 

- Initialization. 
7 

30 

DISCONNECTED = FALSE. 
pacKet - _processmg = FALSE. 

pamsjget_msg_type = MSG_SINGLE_TYPE. 

r 

~ Process command hne arguments 

35 
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for(is1;i<«rgc;H^) 

«1 * stnoupper (argvfi]); 

if (strcmpfs 1. 7DM0"> == 0) 
5 DISCONNECTED = TRUE: 

else rf ($trcmp($1 , m /PKT) == 0) 

pacxet ^processing = TRUE. 
ei$e if (strcmp(sl. 7PKTDBG") == 0) 
{ 

p*t_oeoug = Dacxet ^processing = TRUE, 
pnntf ("debugging neiworx pacxets. WV 

} 

else if (sircmp(sl, 7PKTSIM-) == 0) 

1 0 pxt_simdbg » pkt_debug = Dacxet _processmg = TRUE. 

prmtf ("simulating neiworx pacxets (use A to seperate pacxets)\n"). 

} 

• else if (strcmp(s1. 7PARSERDBG") » 0) 
{ 

parser_debug = TRUE 
prmtf ("debugging parser \n"). 

eise if <strcmp(s1 , -/PUF-) == 0) r flush flag . customer to purcnase map counts V 

oeleie_pur mfo = 1 

} 

else i <«rcmp<sl. -IPRF-) == o) r flush flag - customer to proouct map counts 7 

delete ord mfo » 1 
) " 

«se i <strcmp(,i . -/PPF», . 0 ) r flush flag - purcnase to proouct map counts v 
dBieie_pur_prd tnfo = <\ 

20 J 

eise 

pnnrf ("Invalid argument ignoreo \n~, $1). 

freeisi) 
51 = NULL. 

} 

erfoef DBG 

oeDug_fiie = fooenf oeoug fue" ■>*-) 
w D »encrf 

r 

- Read files 

V 

load_eonfig_fiia (configj.iej 

^-'**M^asiarJi.a^^^ 0ate &M( Sufi 

■et.exmmero. *«U>urouue. Mat_prooua suos^ary.iaoeis). " 

30 tf (|set_suOsja*ry) || tse._purcr.Bse) || (set_proauet)) 
*oed_bitmeps(). 

Jf <(set_purcnase) || (set _proouci)) 

<nrt_purj3rdjable(). 
-oaa_jxiT_pro_maps(). 

} 

35 
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r 

- Initials© network and I/O buffer*. 
♦/ 

Mt_emq_bufftr{); 

=> memsettmsgJi»e_Ouffer f 0. FILE_BUFFER_LENGTH); 

rvt_omq_buffersO; 
(DMQ_CONNECTED) 

{ 

attach mooe = PSYM ATTACH BY NUMBER; 
GLiype~ = PS YM_ATTAC H_PQ . 

strcpy <q_name. "1"); 
q_name_*en = stnen<q_name); 
2 q status = pama_attacn_Q (Aattacn_mooe. &r>ew_proeess num.aJl, &qjype, 

o^name. Aq_name_len, 0. 0, 0, 0. 0); 

tf (tehee* ret(status)) 
{ 

^ error_handier (DMO_ATTACH_FA!L ERROR, status, NO.STRING). 
Ioao_config_fiie (config file); 

} 

15 

* - TEMPORARY!!? — — / 

if (!pacxet_processing || pkt simaog) 
( 

ntwk^nors <mwk_hdrj •) ma ttoc (NTWK_HDR_SIZE). 

CHECK_ALLOCATION(niw^nor ntwK_nar Routine mam(n. 

2 q strepy (ntw*_hor->GDname *3NBL") 

ntwk_nor->auery_ia;3} = "V0\ 
memepy (nrwk_nor->suDoate "01/CW19S2 , \ 10). 

n!wk_hor->suDaat8/ 1 0] = "XO* 
memcpy (ntwk_nor*>suDtime 'OO 00~. 5). 

ntwk_rtar->suDt:me[5) = "\C. 
memcpy (nrwk_hcr->rurmme "00 00". 5). 

ntwx_nar->rurmme|5) = *\0". 
strcpy (ntwK_nor->»aoei — A laoei of some son 

•> * — 

stmcpy (ouery_f)iename nrwk_hor->query_io 3). 
Query_f«ename|3) s *\0'. 



r 

~ Process eacn of the oacxets « connect to DMQ. 
- reman conneaeo upon CIS EOl or EXIT status 
•/ 

3 0 wtwie (TRUE) 

{ 

r 

*" Read the neaoer packet (atong wrtn an non-Query pacxets) 

rf{reaa ntwk nor) 
{ 

r 

■* Initialization every neaoer read. 



35 
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15 



20 



25 



{ 
) 



reaa_ntwk_hdr = FALSE; 

r 

~ Perform the I/O 

7 

if (DMQ_CONNECTED) 
omq_get_msg(); 

pams_message = msg_gei_oufler. 

if (Pkt_oeeug) 
pnmf rmsg from row* %sVrT. pams_message); 

else 

{ 

msg_bufferp) = ^fj, 
pnnff ("Cmo> 

Qei$(msg_buff B f): 
^ pams_message « msg^ouffen 

|f f(.»m*SLoutstanocno) && (!msg_r»t_oui»an*r*)) 

r 

• Slnp preceatng spaces and newimes... 



30 
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whrte (Cpams.messaoe « • •) Coams.messaoa .= w && 
( Pams.messaoe * PACKET.SEPERAt5r» pZ^^; 

— Make sure there is oata mere' 
•/ 

if ('pams_message == XT) 

reed_ntwk_hdr = TRUE; 
continue 

> 

r 

~ Check for a cure* em command ! 

if (stmemp<pams_message, "exit". 4) == 0) 
•^o^MnoteitlLLEGAL_EXrr_ STRING. ERROR. NO.STATUS. NO_STRING). 

r 

~ Proa »*» ^eaoer packets from the winoows app. 

if (packet _process»>g DMO.CONNECTED || pw.deoug) 

ff(pkt sim cog) 
< 

SEPERATOR^CHECK (pams message** DEBUG SPPPRathd „ 
^ pnnrt fSEPERATORW); • ««UG.5EPERATOR. 1); 

eise 

( 
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S.Xr CHECK<PaTO -'" e ^ ^KET. SEPERAT0R . 
P""« rSEP£RATOR\n-); 



if(!p*t_simoog) 

{ 

1 0 ntw*_nor = (ntwk_hdM •) pams.message. 



r 



— Terminate the variable length stnngs with a VT. 

/ 

nulUerrmnaie {nTwk_har-»dbname. N7WK HDR DBNAME LEN) 
nul^iermmate (ntwK_nar->h 8 aoer_flags. NUMBER* OF FLAGS) 
nuitjermmate <rowK_nor.>iaoei. rttVVK_HDR_U&EL~ LEN). 

15 r 

** Process heaoer flags 
•/ 

* f ntwk_hor.>heaaerJtogsfVER_TOTAL) == V) r Vertical Totals •/ 

fteaoerJ)ags(VER_TOTALl = NO.TOTALS. 
else if (ntwk_nor->heaoer_flagsfVER TOTAL) == T) 
heaoef_flagsfVER_TOTALl = SUM_TOTALS: 
else if (nrwfc^nor.>neaoer flagsfVER~TOTAL) 7) 
2 0 neaoeMiagsfVER_fbTALl = AVG.TOTALS: 

else if lntwic_nor.>neaoer_ftags|HOR~ TOTAL] == *3') 

heaoer_flags(HOR_TbTAL] = BOTH TOTALS 
eise 

neaoer_flags|HOR_TOTAL] = -1: /• default 7 

if (ntwk.nor.>neaoer_flags[HOR,TOTAL) « XT) r Horizontal Totals •/ 

newer Jlags|HOR_TOTAL) = NO.TOTALS; 
else ff intwk_nor.>neaoer flagsfHOR TOTAL) == '1") 
heaoer_ f)ags|HOR_foTAL) = SUM TOTALS. 
J. z «i*e it <nrwK_nar.>neader_nags|HOR~TOTAL) == T) 

neaoerjiagsfHORJTOTAL) = AVG_TOTALS. 
eise if fntwK_nor->neaQer_fiagsfHOR~TOTAL] == T) 

neaoer^fiagslMOR^TbTAL) = BOTH TOTALS 
eise 

heaoer Jiags(HORJTOTAL) = -1; r default V 

^^!!!! r 1^ " r ° = ^aoer_«ag S | 0 )]. r hard coded until windows V 

B%rtn " h ~-Wtt ^Oives us correct mouts CM •/ 
pnna( set Bom toia flaos to on\m r k.~. ---- . ,. _ v - n " ' 

3 0 namoar fiasslOl : i rsuw.,' r hare coaa t» wmaows eaten up CM •/ 

n,^nf->__T_. j/ SUM ' r hare cooe tdi wmaows eaten uo CM •/ 

prnttrDeaoer nag on. = %a\n . haaoarjlactfl]): r nam eoa. lid wmaows cater, up CM •/ 

heao«r_ftags[2) = -i 

h.ao.r_liag S | 31 . . r res| m ^ ^ eo<J|eo ^ ^ ^ ^ CM e/ 

35 
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header JlagsM) 8 -1. r we will use some for reports later CM •/ 
heeoer_fi*gs{5) « -i, 

heaoer_flags|6} =■ -1; 

heaoer_nags{7) = -1; 

5 heeoer_ftags{8} = -1 ; 

r 

~ Build the auery filename. 
•/ 

stmepy <auery_fiiename. ntwk_hdr->query_id. 3); 
query Jiiename(3] = VT: 

if (pkt.deoug) 

pnntf ("read heaoer: doname « %s, query_fiiename = %s\h laoe> = %s\n' 

1 0 ntwk_hdr->dbname. ouery_f>lename. ntwfc_hor-»laoel); 

; r 

— Skjp past ine network heaoer. 

7 



>rendif 7 



pams_message ♦= NTWK_HDR_SIZ£; 



25 r Build tne heaoer tor every ouery 7 

msg_heaoer = caiioc/FILE_BUFFER_LENGTH. stzeofCmsg^heaaer)): 
spnntf(temo_stnngl5, "%d'\ rnax_numDer_of_b!ts); 
temp sumo pointer = msen_commanemp_stnrigl5); 

spmtf(msg~neaoer. "DATABASE : !*s OB VERSION : %s \nTOTAL CUSTOMER RECORDS 

!4s\n\rT. dD_name. CD_version_oate. temp_strtng_pomter ): 
tree (temp_smng_pointer); 
temp^sinng^pomter = NULL: 

if (DMO CONNECTED) 

{ 

20 msg but xlerfmsg heaoer). 

) 

else 

< 

pnnt?c%s". msg heaoer). 

) 

freefmsg_rieaoer) 
msg_neaoer =. NULL. 

if (pK! s:mopg) 



) 

eise 

{ 



30 > 



S=FERATOR_CHECK (pams message**. DEBUG SEPERATOR. 2) 
prmrf f *"£ E r E RATORVT). 



SE e ERATOR_CHECK (pams_message*» PACKET_SEPERATOR. 2). 
rf tp*t_ceou5 

pnnfl CSEPERATORNn")* 



35 



r 

— Read tne packet type 
7 

if (pkt_oeoug) 

pnnrt ( pacxet type = %c%c\n". 'pams^message. •(pams_message*i)). 

ntwkj>w_rype = PACKETjrYPE(pamsjnessage), 
pams_message ♦« 2; 
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•witch (mwk_pkt_type) 



10 



15 



25 



case PKT_QUICK QUERY 
case PKT_COUNT QUERY 

r 

~ Quu * * Count Queries' 



break: 



case PKT_Dr$TRlBUTlON 

r 

~ Display Distntjution* 

nuf^taoies s 1 
jf (pkt^simoDQ) 



pnnff ("SEPERATORta-); DcBUG_SEPERATOR, 2); 



-etse 

{ 



J2S- CHKK '--^. packet_seperator 2l 

} pnnjf CSEPERATORVi"): ' 



"um.of.diM « «o.(pams.me, M9 e). 
* (Pfct_debup) 

■« (tat, of Qw » m a w ^ Qj ^ 

2 0 Pams.message * «rcnnpams_r„essaoe. . @ . } + ^ 

for (i « 0; i < num_of_dtst; h^) 

for (f=0. ;<num_taoies rr i 



get^field name') 
gettable>ameo 

GET_MIN VALUEO 
GET_MAX_ VALUED. 



30 '«PW_oeougj 
cwt_rto|,j mm.™*. o.st.rto(.) max «umi 

rivp " cneck on this, not bang used "/ 
d*t_stan_po$ = oams message 
35 oist_tnfo_iox * 0; 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 PCT/US94/12074 

51 



PKT_COND DIST: 

r 

~ DaWa y Conoitional Distribution! 



num_tao»es « i; 
if (pw^simaog) 
{ 



) 

else 

10 { 



SEPERATOR_CHECK <pams_message**. DEBUG SEPERATOR 2) 
prmtf rSEPERATORVn"); 



SEPERATOR_CHECK (oamsjnessage** PACKET SEPERATOR 2) 
if (pkt_oeoug) 

pnntf ("SEPERATORVn"); 



) 

num_cf_dist = atoi(pams_message); 
if (pkt_oedug) 

1 5 pnntf ("number of distributions is %dYT. num_of oist). 

pams_message = strcnrjoams^message. '@') ♦ 1 : 
for (isO.k num_of_oist t**) 

for fj*0; j<num_taoies. 

GET_Fl£LD_NAME(). 
GET_TABLE NAME(). 

20 

4/1 7 svo - we nave oecioeo not to use mm a no max frequencies This 
funatonawy may oe useo later ana hence d is commenteo out 



GET_MIN_VAIUE(). 
GET_MAX_VALUE() 



-5 - i? (oki eeoug> 

oiS!_mfo[i] field_name oist_mfo|i) tadie_name. 
GJSt_mto[i) mm_vaiue. oist mto|t) ma* vaiue) 

~ ) 

) 

T svp . cnecx on tms. not oemg used 7 
Oist_stan_pos = oami_message. 
3 o dis!_mto_ioji = 0. 



35 



r get tne conditional ouery V 
atsign * strcnrioams_message. *@'). 
ten = (intjatsign . |tntjoams_message. 
condittonai_ouery = mauociiervO). 

CHECK_ALLOCATlONiconoitionai_ouery/' conditional query Routine mam(n. 

memcoy fcondftionai.auery. pams_message. atsign . pams message) 
conauionai_query|ienf e 10*. 
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pams_message = strcnr<D8ms_message. *©•) ♦ 1, 
break; 

case PKT_COND 2WAY 

r 

- 2 -way Cross Taos' 
•/ 

numja&ies = 2; 



10 SEPERATOR.CHECK (pams messeoe~ ntnnr «««« 

±U ^ pnntf fSEPERATORVTJ. ~ "•aoe**. DEBUG_SEPERATOR, 2). 



else 

{ 



SEPERATOR_CHECK<pams message PACKFT c« CDATftn 
rf <Pki_deDug) ~ »*ACKET_SEPERATOR. 2). 

j CSEPERATOR\rT); 

1 5 num_of_dist « atoi(pams_message); 

if <pw_debug) 

Pnntf (Wioer of Osteons is W. num_of_a*t), 
pams_m«ssape = strain oams.message. ■©') ♦ <t t 
for (i c o. i < num_o'_ois:. !•♦) 

2 0 f f ° r 2 way BWM »- **r* are two sets of f..ki « a « 

z 0 'or ,«num tao.es ,-i name$ an ° taoie names •/ 

{ " 
GET_ FIELD NAMEf) 
GETJTABIE NAMEf) 



GET^MJN VALUED 
GE7_ max" value;; 



) 



rf (P*r_oeougj 



SMSS^-—- ™ "- ,a8, "" ,M - v, - m " 8%a 

«aD_mfo[i).vt_mm. *aD_info[i] vt_max). 
«ao_m»o(.) hi_ min . «ao_,nfo(,] rc_miu, ~ 



) 
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20 



35 



r svp - cneck on this, not being used. 7 
Qjst_start_pos = pams_message 

XUD_info_lQjr s 0. 

r get tne conOmonai Query •/ 
atsign « strcnrtpams.mcssage. *@*). 
tan = (tnuatstgn - (intjpamsjTiessage. 
conomonai_ouery = ma»iocnen*i j 

CHECK_ALLOCATlONi conditions i_ouery." conditionai_query Routine mam()"). 

mem coy <conditionai_ouery. pams_message. aurgn - pams_message). 
conortionai_Query|ien] = "NO*. 

pams_message = strcnrtoams^message. *@'} ♦ 1 . 

break; 

case PKT_COND 3WAY : 

r 

— 3-way Cross Taos' 
7 

numJiaWes = 3. 
if (put simoog) 

{ 



} 

else 

{ 



S5PERATOR.CHECK iDams.message** DEBUG SEPERATOR. 2) 
prmtf ("SEPERATORvn"). 



SEPERATOR_CHECK <pams_message~ . PACKET_SEPERATOR. 2). 
if (pw aeoug) 

pnntf (-SEPERATOR\nl. 

) 

num_of_dist = atoi(pams_message). 

if (pkt_debug) 

prmtf {"numoer of distnoutions is 'AdYT. num_of_dist). 

pams_message = strcnrtpams_message. '©') ♦ 1. 

for (i « 0: r < num of dist »»*) 

25 ( 

t* for 3 way crosstaos mere are tnree sets of field names ana taoie names 7 
tor (j=1; j<=num taoies }-♦) 

{ 

GET FIELD NAMEn 
GET^TABLEInaMEO. 

4/1 7 svp - we nave oecioeo not to use mm ana max treouencies This 
functionality may oe usea later ano nence it is commented out. 

3 0 GET_MIN VALUEf). 

GET_MAX~_VALUE(). 

) 

if(pkt oeoug) 
< 

xtao^mfof.) vt^fieW.name. xtab_info{i) vt_tao*e name " ~ °^ 1 

xUD_ffTto{ij vi_mtn. jrtabjnfo[i).vt_ma*),~ 



i^-i — r pnntf r hz - fietdsr%s - ^taoie=%s, ta_mn=%o, hz max=r%oVT 

«ao^mfo[i).h2_fieW_name. *aO_mfofi).hz taoie name - ^ * 

xtao_nfo|i) nz_mm, xtao_rto(i)7tt_max)f 
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5 > 

r tvp - cneek on this, not being used. 7 
dat^stanjxs = pams^mBsu^, 
xtao^mt o_iax = 0; 

/■ get the conditional Query 7 
•tsjgn « strcnflpams_mes«age. 
ten * (mnatsign . (mt)pams_message; 
^ q condiUonai^ouory = mauocaerv* 1 ); 

CHECK^ALLOCATlON^conoitttna^ovwy.- a«Ortional.query- Routine mam()-); 

memcpy <eondtt.onar query. pams_message. atsign - pams message) 

pams_message a stiwtpams_message. ♦ 1. 
break: 

15 casePKT DISPLAY 

r 

- Display' 
V 

num_taoies = 1 . 
rf (P*Lsimaog) 

( 



20 } 

else 

i 



5EPERATOR_CHECK (cams message** DEBUG SFPFRatoo 
pnnrt ("SEPE RATOR\n"). " utout».5crtRATOR 2). 



PACKET.SEPERATOR. 2). 

pnnrt ("SEPERATORlnl. 



num_of_aisr = atoi(pams_message). 
(Pkt^oeogg) 

prmtf {"number of Oistnouttons is %oVT num_of_oisi). 
pams_message = strcnr(pams_message. @) - 1 

tor (i = 0. i < num of oist 
{ 



tor 0=0. j<num tables. !♦♦) 
{ 

30 ^ GET_F(ELD_NAME0. 

rf <pkt_oeougj 
{ 



) 



prmtf (" f»ew=%s\n~. disMnfo(i) fiefc_name) 



_ _ 5vp " cnecK on tnis. not oemg use a 7 

3 D dist_stan_po$ = oams message. 

atst_mto_idx s o, 



break; 
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case PKT^WRfTE . 
r 

- Write! 
•/ 

num_taoie5 = 1 . 
if (pKt_simdog) 

( SEPERATOR.CHECK <pams_message~. DEBUG_SEPERATOR. 2). 

prtnrf ("SEPERATOR*-): 

) 

else 

' SEPERATOR.CHECK (pamsjnessage— PACK£T_SEPERATOR. 2). 

if(pkt deoug) 
pnntf ("SEPERATORNn**). 

) 

num_of_dist « atot(pemsjnessage); 
if (pki_o«Dug) 

pnntf Cnumoer of dotnDutons is %oYT, num_of_Oist): 

pams_message c strtftrtparr^message, '@*) ♦ 1; 

for (i ■ 0; i< num of dat: t++) 
{ 

for 0*0; j<num_tat>ms: /~) 
{ 

GET_FIELD NAME(). 

) ~ . 

if (pKt oeoug) 
{ 

pnntf f fieW=%«vr. dat_»ifo[i] field name): 

) 

) 

r svp - enee* on tna. not oemg used V 
dat_stan_pos = oams^message 
dat_irrto_Kix a 0. 

break. 

case PKT_2WAY_XTABS 

r 

- 2-way Cross Taos 1 
•/ 

num_tabies = 2. 
if (DM sim dog) 

{ 

. SEPERATOR_CHECK (pams message—. DEBUG SEPERATOR 2) 
pnntf f"SEPERATOR\n"). 

) 

eise 

{ 

SEPERATOR_CHECK <pams_message—\ PACKET SEPERATOR. 2) 
if (pw_oeoug) 
pnntf fSEPERATORVT); 

) 

num_of_dist = atoi{pams_message); 

if (pkt_deoug) 

pnntf ("numoer of distnoutions « %d\n". num of dist): 
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pams_message * strcnrtpams^ message. '@') * 1; 

for (» « 0: k oum of Oist: »*♦) 

r for 2 way crosstaos. mere are two sets of field names and tame names •/ 

for (jsi : j<=num_taoies. r**) 

{ 

GET FIELD.NAMEO. 
GET_TABLE_NAME(). 

4/17 svp - we nave oeooeo not to use mm and max freouenaes Thts 
functionality may oe used later and nance it is commented out. 

GET_MIN_VALUE{); 
GET_MAX_VALUE(); 

} 



if (pw debug) 

{ 

pnntf (" vt_fietds%s. vMaWes%s. vt_mm=%d. vtjnax»%dvY\ 
xtab_mfo[i) vt_field_name. xtab_mfo[i).vtjaoie_name. 
xtao^mfojij-vt^min. «ao_irtfo|t)!vt_max); 

prmtf C hzjield*%s. hz_tawe»»As, nx_mms%d. hz_max=%d\rr. 
15 xtab_mfo[i) hz_field_name. xtab_mtofi] nzjaDie_name. ~ 
xtab_mfo(tj.m_mm. xtao mto[j)!nz max)f 

) 

) 

r svp « cneck on this, not being used •/ 
disi_start_pos = pams_message. 
«ao_mfo_idx ■ 0. 



20 



break; 

case PKT_3WAY_XTASS 

r 

3-way Cross Taos! 

*/ 

num_tabies = 3. 
if (pKt simdbg) 

{ 

SEPERATOR_CHECK foams message** DEBUG SEPERATOR. 2) 
y r prmtf rSEPERATORvY). 

eise 

( 

SEPERATOR_CHECK (pams_message**. PACKET_SEPERATOR 2). 
if <pkt_oeoug) 

pnntf rSEPERATORW). 



30 



35 



num_of_Oist = etoi(pams_message). 

tf (pkLdeoug) 

pnntf rtwmoer of distnbutions is %d\n". num_of_dist); 

pams_message * strcnrtpams^message. ♦ 1; 

tor (I = 0; i < num of dot r**) 
{ 

r for 3 way crosstaos. there are three sets of field names and table names •/ 

for j<*rtum tables; t**) 

( 

GET_F1ELD_NAME(); 
GETTABLE_NAME(); 
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4/17 ivp-we nave deooed not to us© m*i and max freouenoes. This 
functionality may oa usee later ana nance ft is commemeo oui 

get min valueo. 
getImax.valueo; 



) 



if (ptt_deDug) 

{ pnntf r vt_fie!d=%$. vtjaoie=%s. vt_mm=Sd. vt_max*%d\n". 
*aDjnfo[0.vtJie!dJiame. xtaO_imof;i).vtjaoie_name. 
xtao~into(ii.vt^minrxtao_into{i].vi_max;; 

pnntf C hz_fietd=*s. nzjaoie=%s. hz_mm=*d. n2_maxs%ovr. 
1 0 xtab_info{i].hzJ»ld_name. xtaDjnfo(n.tejaD)e_name. 
xtab^tnfoiij.nz^mm, xtao_tnfo[i) nz_max). 

pnntf f pgJ»eid=Hs. pg_tab»esHs. pg_mm*%d. pg_ma*=%d\n*\ 
xtaD_trrfo[i] pg_fieJd_name. xtaD_mfo{i) pg jaoie_name. 
xta&"«nfo[iJ.pg mm, xtaD_into[i).pg_max). 

> 

) 

r svp - cnacK on tms not Demg used. •/ 
1 5 oist_stanjDOS = pams_message, 

xtao_inlo_»ox = 0. 

braaic: 

case PKT_RFM 

r 

- RFM' 
•/ 

num_taOies = 3. 
if (pKi stmoog) 

( 



2 0 



SEPERATOR* CHECK <pams_message*.*. DEBUG_SEPERATOR. 2). 
pnntf ("SEPERATORW) 



) 

else 

{ 



SE°5RATOR_CHECK(eams_message~ PACKET_SSPERATOR 2) 

if iDkc oesug' 

pnntf rS5P5RA70R\r."', 

> 

num_o*_Cist = aio«oams_message) 

if (pKt_oeoug) 

pnntf ('numDer of otstnDutions is %dVT num_c*_Cist). 

pams^message = strcnnpams_message. *@') ♦ 1. 

3 0 for <i = 0. i < num^of^dist. )*♦) 

^ r for 3 way crosstaos. mere are tnree sets of fieta names ana taote names */ 

for (j s V j <s numjaoies. 
( 

GET FIELD NAMEO. 
GET>ABLELnaME{). 

3/26 s vp . we nave oeaoed not to use rmn and max frequencies. Tnis 
^ ^ functionality may oe used later and nence it is commented out. 

GET MIN VALUEO; 
GET.MAXJ/ALUEO; 
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} 

tf(pkt OBDug) 

{ 

5 prmtf r vt_fietd=%s. vtjabie*%s. vt_mtn=%d. vt max=*d\n'. 

xtab_mfo[i) vtjield_name. xtaojnfoji) vt_taoie_name. 
xiar>_mfo{i) vt_mm, xtao_irrfo|iJ^!_max)f 

P""* r hz_fieta*%s. hz_taoie=%s, hz mm=%o. hz max*%d\n" 
xiab_mfo{i).h2_f»ia^name. xtao_mf ofi). hz_tao»e_name . 
xtabjnfolij.hzjnm. xtaD_tnfo[i)!hz_max). 

prtnti C pgjiew=%s. pg_tabte=%s. PLmm=%fl, pg max=«Ad\n* 
- n ""o.^oiU-Pg^fiaid^name. xtab mf ofi) pg_taote name. 
iU *«L«to(i).pg_mm. «ao info{i)"pg max): 

) 

) 

r svp • cheex on this, not Pemg used */ 
otst_stan_pos = oams_message. 
xtao_mto_iox * o. 



1 5 

casa PKT_SEGMEWTATtON 

r 

— Segmentation Query' 
7 

numjab»es = i; 
if <p*i_stmaog) 
{ 

SEP£RATOR_CHECK <pams_message~ DEBUG SEPERATOR 21 
2C pnntf ("SEPERATORVT). 



SEPERATOR JTHECK {pams_message~. PACKET SEPERATOR 21 
if <pk1_debug.» 
^ pnntf rSEPERATORVT). 

n _ num_of_aist = atojjpams_message/ 

if (pkt_aebug) 

pnntf ("numoer of distntoutions is %dVT. num_ef o»st). 

pams_message « strcrv(pams_message. *@") ♦ 1. 

for (i = 0: i < num of oist »•*) 
{ 

for 0=0; |< num taoies j**) 

30 < 

GET_F!ELD NAME0 

) 

) 

if <pxt_deoug) 
{ 

^ pnntf f f*etds%s\n M . dist_mfo[0] fieid_name). 

35 r ehecx to see if segmentation should be reset or not 7 
segmentanon_ch3r = pams_message|0J. 
segmentatiorw esponse « segmemauon_cnar. 
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rf ((segmentation_resoonse « "V) || (segmentation^ response == /)) 
reset_segmentauon = 1 . 

eise 

raset_segmemation * 0. 

pams_message * strcnapams_message, '@') ♦ 1. 

r 5 vp - eneck on this, not being used. •/ 
dist_stan_Pos = pams_message; 
dist_info_iax * 0; 

breaK; 

} r end switch (PACKET JTYPE) 7 
) r end if <paacet_orocesstng) */ 
if fDMO_CONNECTED) 

( spnntfMemp_stnngE5. "%sVn". ntwk_hdr->aoel); 
center_strmg(iemp_stnng85. 70. 85): r 70 char page wiotn, BS char nput swng •/ 
msg_buf_x1er (temp stnngBS); 

) 

else 

prtntf C%s\n". nrwk_hdr->iabel). 

) r end if ( , msg_outstanoing and , msg_not_ou!standing) •/ 
else 

{ 



r check to see rf pams_messgae is CIS_EOi else put CIS_EOl to that message */ 
if (msg_outstanotng) 

pams_put_msg_type = M SG_0 UTSTAND1NG TYPE, 
else 

{ 

2 o msg_buf_*ferf "No outstanding messages tounoVi'*); 

pams_pj-._msg_rype = MSG_NO OUTSTANDING. 

) 

) 

) r end rf <read_niwk_hdM 7 
r 

*" Cneoi for er.0 of fntormation 

y " rf foams message == CIS EOI) 
{ 

if (pkt_debug) 
pnntf rCIS_EOI\n~). 

read_ntwk_hdr = TRUE. 
reset_parse_tree(). 

if (DMO_CONNECTED) 

cmq__put_msg(). 
freedom q_pufleri{); 
set^amq^Duftert); 

memsewmsgjiie_butfer. 0. F!LE_BUFFER LENGTH) 
iriit^om^ouffersO. 

r reset the values •/ 

pams_put_msg_type = M$G_SfNGL£_TYPE; 
msg_ouutanoing a 0; 
msg^not outstanding = 0; 

35 ) 
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0:- 

r see if customer to purchase now mapped rf so unman 7 
r note: not tooiung at c*iete_pur_«to flag, •asumrg mat flag 
5 cus_puT_map a set only ff oeiete our nfo 7 

if ( cuijxjr map ) " 

{ 

status « UnmaoCtoseFiief ws^jmnl. exus our ads? J 

^^ (UNMAP.CLOSE.ERR ERROR, status. ^.prototype, customer to our*™ 
cus_pur map e 0 

} 

10 r see rt customer to product now mapped, if so unmap 7 

H ( cus_pro map J 

{ 

status = UnmaoCtoseFile< eus_prd cnnl, feus ord addr V 
if (is.arronstatus)) ~ 
^no* (UNM AP„CLOSE_ERR. ERROR. «««. -Wejmwyp.. cu«om.r ,= 

cus_pnJ map * &. 

> 

r see rf purcnasa to produci now mapped, if so unmap 7 
15 if <Pur_pro map) 

{ 

status = UnmaoClosePite( pur_prd_ennl. &our pro addr X 
if (ts_erron status)) 

,UNMAP - a0SE - ERR - ERR °R- «"«• -tejrowyp.. purcnase to procuct 
pur^pro^map = b. 

r 

2 0 •* Continue ... This will watt for a DM0 reconneaion or 
~ pet anotner tme from stdto 

7 

continue, r jump to end of wnne (TRUE) 7 
; - enc - CrS.EOr 7 

- Process tne Query pacxetis) in tne parser* 

7 

PROCESS_OUERY_PACKETS 
Query_num^*; 

r For munioie Queries on a segmentation, oo a reset only tor tne first Query 7 
if (louery.num > 1 ) && lresei_seamentation)) ^ 
raset_segmentation « 0. 

30 

if toacket_proeessing) 

rf(pkt simoogj 
( 

SEPERATOR_CHECK (oams_message— . DEBUG SEPERATOR i\ 
pnntf rSEPERATOR\n"). ucouun^aitrcRATOR. 3). 

etse 

^ { 

* W TeIug R r CHECK (Pams - mesM **~' PACKET.SEPERATOR. 3). 
pnntf rSEPERATORVn"); 

) 
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r 

2 Delete tne keyeooe and taoel from last time 
~ w m,s « a Quick ouery. get tne Keyeooe and 
- taoei from tne input stream. 

5 7 

if (stnentouery_keycooe) > 0) 

free (Quary^keycode). 
Query_neycooe s NuHStnng 

) 

if (strten( ouery lapel) > 0) 

{ 

1 0 fre* (Query_»aoet); 

query laoei s NulJStrmg 

if (ntwk_pw_type »* p KT_OLMCK_QUERY) 
{ 

ten « (mt) strchrtpamsjnessage. •©*). 
rf(tentso) 

1- { 

x D ten -s (mt) pams_message: r length of keyeooe 7 

Query_keycooe = malice* *en ♦ 1). r room for tne TO* •/ 

CHECK - ^LOCATIONtQuery_keycooe."ouefy^eycooe: Routine mam{n. 
memcpy (Query_keycooe. pams_message. len). r copy keyeooe 7 

quefy>eycooe(ien) o V; ~ r insert the YT 7 

pams_message *= (ten ♦ 1); r skip past the 7 

ten = (mt) strcnr(pams_message, 'Q*). 
2 0 if<ten»=0) 

{ 

ten -= (mt) pams_message: r tengm of keyeode 7 
ouery^iaoei * maiioc/ton ♦ 1 ). r room for tne \0* 7 

CHECK^ALLOCATIONfquery^ label.*" ouery_laoei Routine mam(r). 
mem cc y (auery_iaoei. pams_message. ien). r copy taoel 7 

Query_iaoei|ienJ = IB. r msen tne TO" 7 



pams_message ♦» (ten * 1 ). r swp past tne *@* 7 



} 



r 

•* YYPARSE is currenttv usee e*ciusrveiv for processing 
" Query grammar ana grammar reiateo commanas 

7 



•3 if (pkt_oeoug> 

u prmtf ("parsing Query (keycoae=%s taoei=%s)\n". ouery_keycooe. ouery Jaoet). 



status e yyparse{). 

switch (status) 
{ 

case EXIT 

if(!DM0 CONNECTED) 
{ 

3 5 pnnt _parse_h!Story(). 

exit oormal(). 

} 
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r* Reset OMQ "7 

Gmq_put_msg(): 

free_omq_buffef3(); 

set_omq_buffer(): 

5 memsetimsgjiie^buffer, 0. FILE_BUFFER_UENGTH); 

irutj3mq_ourters(). 
rese!_parsejree(). 

r reset the values •/ 

pams_pui_msg_type = MSG_SJNGLE_TYPE. 
msg_outstanomg s 0. 
msg_not_outstanomg = 0, 
query^num e 0, 

mitiauza_ vanaDies( ); 

10 break: 

ease QUERY : 
UNIVERSE : 
resoive_ouary_tfee< curreni_expr) , 
add_parse_history(); 
resei_parse_tree{). 
row_couni++, 
break; 



15 



case DISTRIBUTION 
case DISPLAY 

reset_parsejreeO. 

row_count**; 

break; 



UEND: 
if (*prmt_univer5e_rvs!ory()) 
prtntf ("Error wmie Closing me universe W) 
20 else 

reset_parse_tree(). 
break: 

case SAWPLE_END 

eno^samowgo. 
break. 

oefaui: 

oestroy_ouery_tree(). 

reset_parse_tree(). 
break. 

} r enc switch (status) •/ 

switch (ntw*_pkt type) 
{ 

case PKT_DISPLAY ; 

r 

30 ** Save the current location of the pams_messaoe. 



save_pams_msg = pams_messege, 

tor (i s 0: i < num of dist. »*«►) 
{ 

r 

** Build the distribution Query 

35 *' 

•pnntf (customaed.query. "DP i). 
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case PKT_WRITE 

15 



20 



*5 C 



• Point tne pams_message 10 tne customBed_ouery 
pams^message * custom ced_ Query 

r 

~ Call the parser ano process the oistnouuon* 

if <pkt_oebug) 
pnntf ("calling tne parser witn distribution #%cVT. i). 



yyparse<): 

10 )rendfor(f 



r 



" Raset tne pams_message? 



Pama_message * save_pams msg 
break, " 



~ Save currwfl tocawn of tne pams_message 

save_pams_msg = pams_message. 
r 

~ Bu»W tne Distribution Query 
sonnn icustomaeo.guery. 'WR %a.-. num_of_oist). 

r 

~ Pomt the Pams_message to tne cusiomaeo^ouery 

pams^messago = eusiom*ec_Gu*-v 
r 

Ca!l parser ano process tne cstriomon* 
<P*t_oeoug) 

prmtf Ccalting tne parser w»in o>stnbui.on »%ovr. ,). 

yyparseo. 



2q ~ Reset tne pams_message' 



pams_message = save_pams msg 
Pre an. " 



case PK7_D!STRIBUTI0N 



35 



~ Savtt me ipcaupn of tne pams_message 

> 

*ave_pams_msg = pams_rnessage: 

for o s 0. i < num of Gist 
f - — • 

r 

J* Builo tne Oistrroution Query 
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10 



15 



20 



35 



spnntf (customaeo_Query. "display distnoution %d;- \): 

r 

7 Potnt Pams^message to tne o«tomizea_ouery. 
pams_message = customaeo^ouery; 

r 

~ Call the parser ana process tne oisinoution! 

if(pk!_oebug) 
pnntf ("catting tne parser wnn distention ettdVT, i); 

* yyparseO, 
) r end for (i < num_of_dist) •/ 

r 

~ Reset tne pama_m«ssaqe* 
^messaoe.sava^s^. 

PKT_COND_DlST : 

r 

" Save tne currem location of m» nam . 
•/ " uon °* ™ parns^ message 

aavejwms^msQ * pams_messege. 

jor (" 0. i< num^oist. h~ ) 

r 

~ Buna tne oistnoution Query 

spnntf (customtzed^Query. "CD i). 
r 

V P0,ni Mm »-'"««9e to tne M tom«eo_ 

pams^messeoe = cus torn sea, g^ry. 
r 

•7 Ca " PWMf and tne oatnounon. 

3 0 " tP^Loabug) 

Pnntf ( canmg tne parser wnn cstnout™ 0 

yyparseo. 

) /■ ana for (i < num_of_aist) •/ 

r 

~ Reset tne pams_message! 



Query 
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case PKT 2WAYJCTABS : 

r 

— Save me current location of the pamsjnessage 
•/ 

save _pams_msg = pamsjnessage. 

for (i = 0; r < num of Oist: t**) 
{ 

r 

- Build tne oistnouiion Query 
•/ 

spnntf <customaed_query, "X2 %d.". i): 

r 

- Pomt tne pams^messaoe to the custom izea_auery 

7 

pams_message * custonuzed_query; 

r 

- Can tne parser and process tne distribution! 
7 

15 rf(ptt_deoug) 

pnntf ( "calling tne parser with distnoution #%d\n". i): 

yyparse(); 

) r end for (t < num_of_dist) 7 

r 



20 



25 



"* Reset tne pams_message! 

7 

pams_message * save - pams_msg. 
bra ax. 



case PKT_COND_2WAY 



r 

" Save tne current location of tne pams_message 

7 

save_pams_msg = pams_message. 

for (i = 0. i < num of dttt: »♦*) 
{ 

r 

— Build tne distnoutton Query 
7 

30 spnntf (customaed^Query, "C2 %d;". i); 

r 

— Point the poms_messago to tne customized query 
7 ~ 

pams_message = custom ced_query; 

r 

— Call trie parser and process the distribution! 

35 

if (pfct_debug) 
pnntf ("calling the parser with distribution #%dVT, i): 

yyparseQ; 
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20 



25 



> r end for (i < num_of_di$t) *; 

r 

~ Reset the pams_message! 
pams_me«age = save^ams_msg; 



case PrCTjJWAYjCTABS : 

r 

•7 ^ cufTem of the pems_mes«ge 

1 0 save_p 8 ms_msg * pams_message. 

for (i s o 4 < num_of_dist: 

r 

~ Build the distribution query 
spnmf (eustomo>ed_query, "X3 %C, m . i). 



Query 



r 

~ Pom me P^*-messaoe to the eustomaeoj 
pams_message = custom*eo_quefy: 

r 

~ Call the parser ana process the Distribution' 

* (PM_oeoug) 
pnntf rc au«g tn e parser wnn oistnoution * w. „. 

yyparse(h 
) r eno for (i < num_of_ois!J •/ 

r 

J" Reset me oarns_ message* 



oams_message = save_pams msg 



case PKT_COND_3WAY 



30 



•7 Save ma currem ""aw* of the pams.messaoe 

save_pams_msg = pams_message ' 
for (i»o .< num_of_atst r**) 

r 

^ Bu,w me oistnoution query 
3 5 spnntf (ar$tomtzed_query, X3 %d;". i) 

r 

- Point the oams_message to the customizea.Query. 
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25 



case PKT_RFM 



pems_message = custom aed^ouery; 

r 

** Call tne parser ana process me distribution • 
•/ 

if (pkt_oeDug> 
pnntf ("calling tne parser with distribution »%d\n". \). 

yyparse{); 
} r end for (k num_of_oist) •/ 

r 

- Reset tne oamsjnessape! 

V 

pams_message = save_parns_msg: 



r 

** Save tne current tocabon of the pams_massage 

V 



2^ 5 save_pams_msg * pam5_message. 

for <i a 0. i < num of oist: 
i 

r 

- Build the distribution query 
•/ 

sonntf |customized_auery 1 "XRFM %d;". i): 

20 r 

- Point tne pams_messaoe to the customaed^ouery 
♦/ 

pemsjnessage = customaed^query. 

r 

- Can me parser and process me dtstnoution! 
-/ 



if (pkt_oeoug) 
pnntf ("caning me parser witn ontnouiion #%dVT. 0. 



yyparie{). 
) r end tor o * num_of_d»st) */ 

r 

~ Reset tne pams message! 

30 

pams_message ■ save_pams_msg. 
DreaK. 



case PKT_SEGMENTATION 



r 

- Save tne cunent location of me oamsjnessage 
•/ 



3 5 save_pams_msg = pams_message, 

for (i = 0. i < num of dtst. 
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r 

** Burid the segmentation Query 
•/ 

spnntf (customizeo^ouery. "SG %d.". ij. 

r 

~ Pom! the pams_message to the custom «ea_cuery 
pams_message = customaeo_auery; 

r 

~ Can the parser and process the etstnoutiorv 

if (pkt_deoug) 
prmtf ("calling tns parser wrtn segmentation »%oVT. ,). 



yyparseO; 
) P end for (i< num_of_dist) •/ 



15 ~ Reset the pams^message' 



pams^messaoe « save cams msg 
breax. . 

) P end of switch statement 7 



error^exceotion 

2 q ) /• end while (TRUE) 7 

} P end of mam() 7 



25 



void nuinerrninate ichar -stnns ,n« *ngtn, 

for |» = ftengin - i) , >= c ^ 
if dtnnQfi] »= • •) 



*('< (length- 1)) 



3 0 strmgpj = VT. 

) r eno of nu!ljermmaie() 7 

void toad_config_rue <config_f,i e ) 

cnar "confiQ^fita 

{ 

FILE ttf; r tonen types file •/ 
char Jinef255). 

35 cnar token^namefMAX TOKEN Namf ipui ^ 

cnar -spr, U * CN -NAME_L£N). tokeh^vaiuefMAX^TOKEN^ VALUE LENJ: 

int number_of_tokens; 
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r 

** Create a nasn taoie tor tne tonens from tne config fit© 

7 

ht « nasn_mrt(32). 

5 

if ((ttf » topen(eonftgJile. "O) ss NULL) 
< 

error Jwndler (FILE NOT OPEN. ERROR. NO STATUS, confiQjHe); 

) 

sptr « fgetsftine. saeof(line). ttf); 

while (sptr >= NULL) 

{ 

1 0 sscanf (hne. "%25s%s". toxen_name. to*en_value); 

r 

— Stnp trailing spaces off of the token name and value. 

•/ 

if ((sptr = strcnrttoken_name. * *)) ♦= NULL) 
•spiral; 

* 

1 - if ((sptr s strcnrttonen vaiue. * ')) NULL) 

•sptr = "\0\ 

r 

— insert tne town vaiue mto tne nasn table and allocate enougn 
** space tor tne tonen name nnauomg a *\0*) Copy tne toxen 

. — name into tne memory allocated oy tne nasn insert tuna ton to 

— associate tt witn tne tonen vaiue 

7 

2 C sptr « (cnar •) nasn_msenmt. toxen_value. stnen<tOKen_name) ♦ 1 ). 

jtrcpy (sptr. to*en_namej. 

r 

" Get tne next line trcm me config file 
7 

sptr = fgets (tme sizeofiimei. ttf) 
} r end wniie isotr NULL) V 

2 5 

r pnni_nasn_taote fnt). 7 
taose (ttf). 



30 



free amq_buffers() 

{ 

nt i; 



r nftiaiae tne Oufters 7 
tor (i = 0. i <= msp^oftset; 

{ 

r snould free all Puffers but 1 7 

if (msg_pui_bufiBrtmsg_offsetJ ♦= NULL) 

free <msg_pm_buflerlmsg_oftset)); 
3 5 msg_pm_t>uf1ertmsgLOf!set) = NULL: 

) 

) 
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msg_off set s o. 

C^^^f^l^ 9 ^ " m "**BUFFER.L£NGTH); 

^ Hout.oeset ornqj^n 

nwn^msa^ _bu«erlmsg_cftsei}. 0. BUFFER LENGTH) " 

memsenmsfiLsummary^oufter. 0. BUFFER_ LENGTH); 

} 



10 

jnrt_Gmq_buf»erc() 
{ 

nti; 

r initialize Duffers V 
for (i = 1; , < MAX_BUFFERS; t~) 
m*fl_put_Duftort»] = NULL 



20 



30 



vox) tfuuaiize vanaoiesO 

{ 

r initialize me suoe^inasier^Pumap •/ 
if (super^master^Bnmap) 

free_bitmap fsuDer_master_bftmap). 
»uper_ma*ier bitmap = NULL. 

) 

r initialize tne otner vanaoias */ 
row^couni = 1 . 
reao_ntw*_hor = TRUE 
mma^ocajrTence = TRUE 



25 > 



mt upper_strempis.t) 
cnar *s " 
enari; 
< 

«M* == NULL) reium(.l). 
«f(t == NULL) retum{-1). 



whi»e(toupper{*5) == toupperfl)) 
if (*s~ *= \D*) retum(O), 

> 

return {•$ - 1). 

35 ) 
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i 

• Common error handler routine All error* due to normal and aortormai conditions "* 

— must come tnrougn nere The routine will seno error wtormation to ootn syserr - 

— and the PC cbent wnen needed. A oean up is aiso cone to prepare us tor a reset - 
~ or axil Onfy fatal errors will cause an em call from tnis routine Hon fata' — 

5 ~ errors should have a metnoo of Ormgrng us Dec* to the White (TRUE) condition m ~ 

— FDC_PROTOTYPE.C. Try to have ail calls have some kind of continue method after - 

— the error handled ) - 
" " 1 / 

void error handler (int message id. r As defined cn FDC ERROR_N UMBERS •/ 

int message jype, " r ERROR or WARNlNG_ONlY 7 

int addrtionai_nfo_!ni. P May not always oe present •/ 
cnar •aOdriX3nai_rnto_stnng ) r May not arways oe prssenx 7 

10 [r BEGIN error handier 7 

int how_handie_erroc=0, 
cnar •error_msg^outter, 

if (message type « ERROR) 
( 

r Clean up oefore we exit or continue. Not ail the items 7 
T have to oe done for tne exit condition. But since the 7 
^5 r exit wiil kill the process anyway it just doesn't matter. 7 

read_ntwk_hdr = TRUE, 
reset _parse_tree(). 

if (DMO CONNECTED) 
{ 

r free the existing msg information, smce an error has occurred 7 

free_drnq_buflers( ). 
20 set^cmq^Duttera 

memset{msg_frte_ Cutter, 0. FllE_BUFF£R_LENGTH). 
inrt_dmq_buflers( ). 

r reset the values 7 

pams_put_msg_type = MSG_SlNGlE_TYPE. 
msg_outstanoing = 0 
msg not outstanding = 0. 

> 

25 

mitialize_variaoies( ) . 

} r endif ERROR 7 r Note - for now nothing is done rf message_type is WAR NING_ ONLY CM •/ 

T call to error_mesg_routine to pnnt out 7 

r error messages a no determine seventy of error 7 

how_nandle_error = error_mesg_routtne <message_id. message_type. additionaMntojnt. aodmonai_mto_string). 

3Q if (how_handie_error == FATAL_EXJT) 

exit(1). r kill the foc_orototype c process - not normal exit 7 
eise if inow_nanoie_error EXIT_NORMAU 

exit(0)7 r normal exit with no DMO CONNECTED 7 

else if (how_nandle_error == NON_F AT Al_ RETRY) 

return: r do notnmg return to call •! original call expects return •/ 

eise 

exit( 1 ); r tor some reason did not return a valid default 7 



35 



>r END error handier 7 
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•x* normal) 

{ 



^oT^ 0 ^^' ERR0R ' ^STATUS. KO.STH.NG): r ft. ™„e „. afly ^ M our Deamj0 _ 



5 taoseCdebuQ^fde-); 

} 



if (suSvatue & STSSM_SUCCESS) 
return (1). ~ 



15 



20 



25 



30 



35 



) 



PWAMS ERROR RETURNED 0»W. 



SUBSTITUTE SHEET (RULE 26) 



WO 95/1 1487 PCT/US94/12074 



7o 



10 



Appendix B for U.S. Patent Application 

15 DATABASE LINK SYSTEM 

BACKGROUND OF THE INVENTION 

Filed October 22, 1993 

Appendix B: Routines to Handle Purchase 
20 and Pr °c»uct Query Manipulation 



£ 1993 FDC, Inc. 
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2 MODULE: PUR_PRD_QUERY.C 
2 MODULE DESCRIPTION. 

5 Z 01 f0UlineS to han °* omrmsm and prooua query maruputttion. 

~ AUTHORS: 

1 I^^*"*" . Oigilal Equipment Corporation 
Sushtl Pibai Digital Equipment Corporation 

~ Ml * a £fn«rw/Dan Thomas 

2 CREATION DATE: 8^eoruary-1993 
20 * DESIGN ISSUES. 

2 Performs a linear seven tnrougn a dataseL Does not do any sorting 

^ or presupposes a soneo oroer to data. 

2 Searcn renames depend on datatype of field being searched - avoided 

tuncuon earns v\ middle of loop tor speed. 



15 



25 



- PORTABILFTY ISSUES: 



I ){*•» ™? *W m Mlls tor create, mapping and unmappmg giooal sections 

Uses RMS attnoines oiogks for file to open wvn* 

- MODIFICATION HISTORY: 

** B-February-1993 - Original 

- 1 7-May-1 993 . Chuck Matmsxog 

- 22.Sep,19W eDta ^> fa ' Lfln0 - eXrt ™ ^-^^ 

20 ^ 2^199^^* SaCOnd ' *"* ^ 00 ™ P-cnase/crodua 

1 , J^*" 0 * on avera 9 8 «W »tai purcnase/procuct queries 
3D-Sep-1993 * Cnanes Maimsnog 

2 - Update error_nano»er( ) calls to include ERROR message tyoe 



ouenes 



INCLUDE FILES 



7 

amctude <stdio.h> 
amoude «stdto> n> 
amciude <ssaef h> 
•mctuoe <rms n> 
amciuoe <fao n> 
amauoe «secoef n> 
tmaude «pstoef n> 
amduoe «oesenp n> 
3 0 amctuoe «unuio> 

•include «fne> 
•include <mam> 



« include *10C_prototype- 
arnauoe "fcr_macro_oefn" 
amauce 'loc^error^numoers.h* 



35 



T external declarations 7 

r struaures tor fixed strings 7 

extern struct fixed. stnng_type fixed JteidfNUM FIXED STRINGSl 
extern irn max_numoer_o?_bits. *~ 
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extern tnt max _purcnas©_t>rts. 
extern int max_proouct_oits. 

tmend * seton ♦ BfTMAP_ INTEGER SIZE 

5 

rDMO specific 7 

extern mt DMO_CONNECTED. 

r structures for bitmaps •/ 

eiiem-strua bitmap "subsidiary bitmapfSUB FILE MAXV 
extern struct bitmap -purO, p,.^ R UD - h, ^- M AX), 

e»em unsigned snort •puroi map 
extern unsigned mt PurOl_mao_count; 

10 extern struct bitmap -prdOl prtmap- 
extern unsigned snort -prcdl map ' 
extern unsigned mt orcoi map count- 

to™** ^astir^uTcnase.bitmap; 
extern struct twmap *ma S ter_proouct_ortmap; 

< 8 duery or product ouerysmuse v 

extern mt procua_q,uery; 



15 



r for oebug purposes 7 
ewem FILE •oeeuo.fiie. 



r 



" Function prototypes 
•/ 

„ f oon, -P ur -P™--'-a( «~e Mnao nwjwjmm.p. «rus o«m ap •n„,_p ur _p ra Bltmap 

« ^cono^.^, strua enmae ^o^^r^^"" 5 1 

« n<Lpu^ra_.e,ea ( ^ ewna , ^JTo^^r^^ a r a r-^ aP ' 

enum oooiean^operatDr oper. struct Oitmap"*resutts_bitmap ); 
mt avg_pur_prdjarge (unsigned mt -data unsioned mt vaii*. ^. . > 

B inof1 ^ aD - SI *« trtmao -purjtns bitmap )• 

uns.gneo snort -pur.map. struct Pttmep -pur jwjHtmap j- 
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«t ("pur_prp^»etea|12J)( struct bitmap *p_brtmap. staid bitmao ^urjjrt_bitmap. 

enum booiean_operator oper, store: bitmap Tesutts.oitmao ) 

5 M (*Pur^rd.larga.soeaalf2))(unsign«i mt -oata. unsigned mt value, unsigned mt mgn vaiue. struct i.st types -fast 

enum fiefo_ooerator operator, mt num_items. strua bitmap •results map. 
unsignea snort •map. struct bitmap •pur_prd_bitmap ); 

irw avg.j>ur_pro_medium (unsigned snort -data, unsigned mt value, unsigned mt mgn vaiue. struct lis: tyoes list 

enum fjeid_operator operator, mt num.nems. struct bitmaD Vesuits map 
unsigned snort Tnap. struct bitmap •pur^prc bitmao ) 
mt total_pur_prd.med:um (unsigned snort -data, unsigned mt vaiue. urTsigneo mt n.gn value struct list types list 
1 0 ftnum f»»a.ooerator operator, mt num_nems. strua ortmao 'resuos map 

unsigneo snort *map. strua ortmao 'pur_prc_bitmao ). 

mt Cpur^ra.med,um.soeoa^IKunsigned snort -data, unsigned mt value, uns.gneo mt n,gn value strua list types list 

enum fieio_ooeraior ooerator. mt num.nems. struct bitmao 'results' map " 
unsigneo snort 'map. struct bitmap *pur_prd_brtmap ). 

mt avgj>ur_prd_date (unsigned snort -data, unseed mt value, unsigned mt hign.vaiue struct list types Hst 
1 5 enum feffl.PPerator operator, mt num.nems. strua bitmap -results map 

_ # _ unsigneo snort »map. strua bitmap •pur^jjro bitmap ) 

mt total-Pur-Prc.catB <uns,gneo snort -data unsigned mt vaiue. unsigneo mt nign.value strua hst types -hst 

enum f.eia_ooerator operator, mt num.nems. strua onmap -results map " 
unsigneo snort *map. strua bitmap "pur_prd_oitmap }. 

mi CPur^rd,date.soeaa?2])iuns:gnes sn~ -oats unsigned mt value, unsioneo mt n<gn va ,ue strua rvoes -list • 

enum iwio.coerata* ooerator mt num^nems strua bitmap -results map 
2 q unsigneo snort *mao. strua bitmap *pur_pro_prrmap ). 

mtavg^Tj>rd_short (unsigned cnar -data unsigned mt value, unsigneo mt n,gh va.ue strua ust types list 

enum field. operator ooerator. mt num_items strua onmap -results map 
unsigneo snon *map strua ortmao *pur_prc bitmap j ' " 

mt waijairjw.afiort (unsigneo cnar -oata unsigneo mt va.ue. unsig'nea mi nion value strua i.si types Hst 

enum f,eio„ooeratof ooerator mt num., terns «rua bitma"o -results mac 
unsigneo snort *map strua bitmap 'pu'_prc bitmap ) 



mt(-pu^pro.snon.soecial?2|) ( uns.oneo cnar -data unsigneo mt va.ue unsigned mt n,gn vaiue ««- ar types -hst 

enum fe.o. operator operator m, num.,tems strua bitmap Vsuits map " 
unsigneo snort -map. strua Pitmap *pur_pro pirmap ). 

■mava_pur_pro_eMr (en ar. aal a u„ signB0 „ vaiue ltrualts , 

u«,™nVZ e, . 8, ° r 0Bera ' W ™ num -"«™ "ruaonmao^esufcTmap 
unsioneo snon Tnao. strua onmap *pur _pro_onmao ). 

3 o « jam -oata uns^neo .„, vau« uns, 9 neo m, h^.v,^ strua tisl lyDe$ 

enum f, elC _ operator ooerator ,m nu m_«ems smja Bnrnao ., e$uRs 
unsigneo snon 'map. strua onmap •pur_pro_pnmap ). 

« tVjW.wj^jjjo. r uns,oneo « van*. uns, 9 neo tn. n.gn^atu,. Itfu a bsi types trs, 

enum t»io_operator operator, mt num_nems. strua onmap Tesuns map 
unsieneo snon •map. strua onmap *pur jw.oitmap ). 

35 
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int »vsLpur_pra_«nng (cnar -data, enar ^aren.strng, nt str Jen. struct list_types list 

•num fieto_opefator operator, nt num.nsms. struo bitmap "resmts_map. 
unsigneo snort "map. strua bitmap *pur_prd_bnmap ); 
rttotal_pv_prd_«tmg (cnar "oata. cnar *a«arcn_smng. nt sir Jan. atruct ust_types nut. 
5 enum fietc.ooerator oper ator , ru num. asms, struct bitmap "resutts.map 

unsigned snort map. struo onmap "pur _pro_Pitmap ); 

fit (*purjw_strne^sp«c^l)(ehar "data, cnar "sean^strnc;. nt str_len. struct hstjypes mst. 

•num fieid.operator oearatpr. nt numjtems. strua bitmap T»suits_map. 
unsigned snort •map, strua bitmap ■pur_prd_bitmap ), 

q •vp M pur^rt_mBred_stnnQ (cnar "data, char •saarcn^smnQ. nt str.ien. strua hst_types list 

anum fiekJ.operator operator, nt num_items. strua bitmap "results jnap. 
unsigned snort "map. strua bitmap "pur_pro_damap ): 
int touijxjrjjrajnixed.strng (cnar "data, cnar "saarcn^strng. nt strjan, strua hstjyoes tist. 

•num fieid.epenKor operator, nt num.items. strua bitmap "resutts_map. 
unsignao snort "map. strua bitmap *pur_pro_0itmap ); 

nt (^ur^.miiad^stnr^sp^TOchar -data, cnar -saarcn^strmo. nt sir Jan. struct bstjypas list. 

■num fiew.ooerator operator, nt numjtems. strua bitmap "resufts.map. 
5 unsioned snort "map, strua bitmap "pur_prd_bttmap ): 

ftt avQj>urj)rd_Tstnng (unsigned snort "data, cnar •saarcn^stnng. nt str.ten. nt fie!d_ offset strua listjypes list. 

•num fielo.operator operator, nt numjtems. strua bitmap "resuits.map. 

unsigneo snort "map. strua bitmap •pur_prd bitmap ); 
nt total !_pur_pni_fstnng (unsigneo snort "oata. cnar "searen_strng. nt str.ien. nt field. offset, strua hstjypes -list. 

enum fieio.ooerator operator, nt num_items. strua bitmap ^esutts.map. 

unsigneo snort "map. strua bitmap •purjjrd.onmap ). 

3 

«t ("pur J>rdjstmg_speeal[21)<unsigned snort "oata. cnar "searen.stnng. nt str.len. nt field.oftset. strua listjypes list. 

•num Oeta.operetor operator, nt numjtems. strua bitmap "resuitsjnap. 
unsigned snort Tnap. strua bitmap "puf_pra_ bitmap ), ~ . 

^ V S^ Ur V ,rd " mB * <3 - ,Stnn9 funsigned snort "oata. cnar "searcn.strmg. nt str ten. nt fietd onset, strua 

si_rypes list. enum fcetd.ooerator operator, nt num_items. strua bitmap "resuitsjnap. 

unsigneo snort "map. strua pitmap "pur_pro bitmap ). 
nt tola i_pur_prd_m aeo_f stnng (unsigned snort -oata. cnar "searcn.strng. nt stolen, nt field offset, strua hsi_ 
"tel. • num te'a.ooerator operator, nt num^items. strua bitmap "results jnap. 

unsigned snort "map. strua bitmap "pur_pra_onmap ); 

mt Cpurjjro.maedJstnng^specia^Dfunsigned snon *data. cnar "seareh.stnng. nt str ten. nt field offset, strua 
hs!_rypes list. «num rieic.operator ooerator. nt num_rtems. strua onmap "results jnap, ~ 

unsigneo snon "map. strua bitmap "pur_prd_bitmap J; 

int avgj>ur_prd_bit( mt "data, unsigned nt value, unsigned nt high. value, strua list jypes list. 

enum fieid.operator pperator. int num.nems. strua bitmap •results map. 

unsigned snon "map. strua oitmap "pur_pro_Ditmap ). 
nt total J5ur__prt w brt( nt "data, unsigned nt vaiue. unsigned nthign. value, strua hst jyoes "list. 

enum f»eio_operatof operator, nt num.items. struct bitmap "results map 

unsigned snon "map. strua bitmap "pur_pro_bitmap ). 

mt ("pur^prd.bit.specialfJJMnt "dau. unsigned nt value, unsigned nt hrgn_ value, strua bsr types list 

•num field jmrator operator, nt num.nems. strua onmap "results map, 
unsigned snort "map. strua bitmap "pur_prdj)rtmep ). 
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«t ^-P^-^.iPeaa,, struct oa«a, et ^ ^ Mt iJyo- fcw ^ ^ ^ ^ 

rrIum™ e, .IT f,el °- 00era,er0Bjr8,0r ""»"»«rcn nem , eaw v8lue 
•num searen.vatue.Mm iearen.vaioe type, mum ourpr^ cuerv 

r 

purOO = purcnase.Bomam 
pufO! = -any_pur_pra 
pur02 » first j>ur_prd 
pur03 = *econd_pur_prd 
pur04 s tnird_pur_prc 
pur05 * rnuJuo4e_pur _prd 
purOS » two_pur_pro 

puf07 « tnree^pur^ppQ 

PurOB o j>ur_pro 
pur09 = nti^pur^pro 
Puri0 = last2 _pur_pro 
purn = Iast5_pur _prd 
purl 2 = svg_pur_pro 
purl 3 s total __pur_pra 



r)H_pur_pm tapta ( ) 
{ 

Pur_P*_«aiectrO) = Oom_pur _pro MMKX- 

W^o.Miectpj « first J*rj«! seiect 
P^J3m.»fttectf3J = 8«cooa_pur Jro select 
Pur_Dra_setect|4J s tr«ro_pur _pro se*a 
P^-Prt.aaiectfS] * mutoie_pur_p« flag 
pur_p*_selectf6] * ■ny_2_pur -P r t j sewcc 
pur_prt_seiecl[7) = any_3_pur_pfd'sei«a 
pur_pffl_saieet[e] = ta«_pur _pre S e"iea 
P^^»«.»«ectf9) * ntljpur _pro seieet. 
pur_pfO_iei©otioj e iast2 ,J>ur_pro select 
purjw.seiectni) = ta*t5_pur _prtf seiec. 

Purj)rd^terpe_soecialfOJ = evg_pur_prti large 
Puf_pnJ_targe_speaalf1] stoiai jxjrjmT large. 

PUf_prt^medium.soeaa»rO} = Bvg_pur_pro medium 
pur_pre_medium_spec4aipj = totai_pur _pnT meomm; 

Purjw_date_speaalfO) = evy_pur_pro oata 
pur.pro^oata^speciaqij =toiai_pur _pnToate; 

pur^m_snon_speaal[0] = avg U pur_pnj short 
purjxB^snon.specaill] = total j,ur_pro" snort; 

Pur^_cfwr_sDeaarrOJ = evg_pur B pr T j cnar 
pur_prc_cnar_speaaJ{ 1 ) * totai^pur^prtTcnar, 

pur^prd^strtng^soecaalfO] = avg_pur_prd string 
pur^pro^stnng^specialllj = totaij^jrcT stnng; 

Pur^_m«e8_strmg_spew![0) = avg_pur_pr« maed strmo 
pur^.mueo.smn^s^i, . toi^^>^^ c; 

pur^rtf Jstnng_specalfO] « evg_Dur_prd fstnno 
Pur^rdjstnng_speaal|1] = total _pur jjnTtstnng!; 
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pur_prd_mo^Jstmg_speaarfO] = evg_pur_pro_m«eo tstnng. 
pur - pra.moreoj«nnLsp^ui(i] = toiai_pur maeo~ fsinng: 

pur_prd_blt_io*a«JfO} eevg_pur_prd bit 

) 

( 



staid bitmap *pur _prt_bftmap. 
struct bitmap "next _pur _pro_bitmap, 
•nam b ooie an .opomor oMr, 
struct bitmap *rasufis bitmap 

10 ( ) 

comte»^bnmap$(purj,nfl_bitmap. oper, naxtj)or_pftJ bitmap); 
» (copy^brtmaoK/aauBi.bitmap, pur jrt.oamap) « NULL) 

em>r_nandier <BrTMAP_NOT_COPY. ERROR, NONSTATUS. t>ur_pnJ bitmap to results bitmap m 

^ CHECK_PUR_PRD_Brr$ 

15 Z C ^-^-P*.**» performs en bitwise logcal operations on two bos and returns eitner ■ 1 or ■ 0 

- FORMAT 

" imcftacfc^purjird^bitsO 

- ARGUMENTS 

* unsigned «t pur_prd_bit - bit pointed to by the bitmaol 

_ •num ooowan^opewor ooer - logical operator 

20 - uns^ned *it pur_pro_cons L brt . bn pomteo to by tne constant bitmap, these bits are .U1 

- RETURN VALUES 

2 1 or a 0, » SUCCESS or e FAJIURE 
" SIDE EFFECTS 

~ If an ooeration tails, will tan eno exit tne program 

2 5 «t cn^jHirjw.bitt (unsigned mt purport, enum boo^n.ooeraior oper. unsigned mt purjKO.const.bit) 
twnen(oper) 

case or_wnen 
case or" 

<Pur_pro_brt | pur_pro const bit) 
nttum(1) 
else 

30 retum(0); 

breaK: 
case ano_wnen ; 
case ana 

if (pur_prd_brt & pur _pra_const_bit) 

retum(l). 
else 

returnfO); 
breaK: 
default : 



35 



break: 



"W^handlw ONVAL©_SWITCH_VALUE. ERROR, op.. ^^^ ^ 
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n » n y-P*y_pn>_nna< strua ownao 



{ 



PUR_PRO_SEL_VARS. 
PUR_PRD_SEl_PRELIM; 
iwaa ■ r*Milts_Mnia»ttwt; 



10 



15 



20 



•■ «--p™.Z,«. SOSES' • 

an men reauea it to trw customer *vei " 

* tot bus set (for fir* pur j»rd). etc 

Pur.oem.map » ne*^^^^^ 
Jorf count** mip < mtp^eno: map—) 



( 0 s "map) >r 1 j 

for(isO;i <j:hMl) 



^ verify item oafinedffi next pur o« 

r ^-WJ>ra_bitmap for tfta customer •/ 



7 



PurjW.bns is pomtmg to a constant h^. . 

Pur^map * pocnungto £5? 15 ^ U,M « ^ence onmap,. 



* ■purprO bits))) * <criec *-P ur -P«J.biu (Cpur oefn m»* a ^ , 



) 



) 



eoum»» 

NEXT - p U R -PRD.REsULT_8m. 



25 '••umicount). 



« fi '*>_Pur_prB_Saiaet( 



{ 



30 



PUR_PRO_SEL_VARS; 

PUR_PRO_SEL.PRELIM. 
"Mute » r»»utu_bltni«p-> tlan . 

Pur_oe«n_map • imjvjiWat*^ 



tnua cmrnao •oof_pnj_ e , tm , 0 

•nun ooot^n_oo«wof eoer 
«~a bitmap >a»uni_oitmoo' 



35 { 



Jonooun.nO; map < map_ano, map**) 
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. * ( G * *map) >* 1 ) 

{ 

for { irO; j < r r*+ ) 



f ( *^^-P*.t)rts (CPur.oefn map & -pur br*\ ^ 

{ - P w_pn3_bits). ooer. (W_pra_map & «pur pro Orts))j 

count**: " 



} 

for ( ; i < Jt \ 
{ 



Vesutts |= •purj)ro^tt$ : 
break; 

) 

NEXT^PUR^PRD^RESULT.Bm ; 



} 

} 

10 retum( count); 
) 



} 



NEXT^PUR^PRD^RESULT^BfTl; 



struct bitmap ■pur_pnj_prtmap. 
atrua p«map Ywxt_pu7_pnd_oitmao. 
enum bootean_operator oper, 
struct bitmap Tesutts_bftmap 

15 ' PUR.PRO_SEL.VARS; 

PUR_PRD_SEL_PREUM. 

results * re$urts_bnmap->sian. 

pur - prd_ map = C*jrjsro_brtmaD->stan. 
pur_oefn_map = next^pur^pro^pttmapl* start. 
toneoum=0. map < map_ena. map**) 

2 0 rf((/= -map) >= 2 ) 

{ 

for ( current=0. kj-i^] 
{ 

^Jr^ 00 m "en customer •/ 

n ( pur_oem_map £ *pur_prd Pits ) 

current*-*. 

ff ( 'pur_pna_orts & *pur_prc map ) 
current** 



25 



swttentooer) 

{ 

case ano_wnen 
case ano 



rf( current == 2 J 
{ 



r now see rf 2nd item met tne searcn cntena 7 
rf ( tH^_pra_Prt$ & *pur_pro map ) 
30 { 

count 

•results |= -pur ore bns 

) 



r now mat we ve looneo « 2no oef.nea our_pr 0 « ,n,s customer stop too*,ng v 



35 
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case or_wnen 
castor : 



10 



15 



) 

break. 



if (( current == 2 )|| {current == 2)) 



{ 



count 

•results != •pur_prd_Oils; 

r now mat we ve tooned at 2nd defined pur_pro item tnis customer stOD looking 
break. 



Oreak. 



default 



error_handter (INVALID_$WITCH_VALUE. ERROR, oper. oper m cnecK_pur_pra_btts"). 
praan. 



} 

NEXT PUR PRD RESULT BITl; 

) 

tor ( ; i < j; ) 
{ 

NEXT PUR PRD RESULT 8JT1; 

) 



} 

eise 

{ 



r not enuf recoros. skid past 1 bit rf we need to 7 
{ 

NEXT PUR PRD RESULT BITl. 



) 



} 



2 q retum( count): 



30 



35 



int mrt_pur_pn3_se!ect( 



~ => PUR.PRO.SEL.VARS. 

PUR_PRD_SEL_PRELtM. 

results = resufts_bitmap-> start. 

pur_prd_map * our_pfd_ortmap->stan. 
pur_oetn_map « next _pur_pro_bttmao->stBrt 
map < map_end. map**) 



stnja bitmap *pur_prd_pitmap. 
struct bitmap •nert_pur_prd_brtmap. 
enum boo»ean_operator ooer . 
strua Oitmap *resuits onmap 

) 



{ 



if ( 0 2 •map) >= 3 ) 
{ 

for ( currentsO. »=0. kj. »*♦ ) 



r looks at 3rd item defined in next _pur_prd_brtmap for each customer •/ 
if ("pur_oetn_map & *Pur_prd_Drts ) 
current**; 

if ( •pur_prd_brts & *pur_prd_map ) 
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10 



15 



•wrtcfyootr) 

{ 

case and. 
case ana 



case or_wnen 
case or~ 



oefaurt 



d( current cs 3 ) 



break. 



r now see if 3rd nem met the aeartn cmena •/ 

count**. 
} j* -purjEffd.oitt; 

r now mat we ve iookm at ^ 

^ m 3ra °"_P« «.m m„ corner sl00 10tM(ing 



if (( current == 3 ) (J (currentf =z 



{ 



3» 



count**. 

'results |= -our _prd ens 

r now mat we ve tooxeo at 3rd defined 



) 

break. 



Pur_prd item tn.s customer stoo ioo*mg •/ 



^;.^»r ( iNVALIO.SWITCH.VALU£. ERROR. 



ooer. -oper m cnec*.pur .profits"). 



20 



25 



) 



} 

Jor (:i<j.f*) 



NEXT_PUR_PRD_RESUIT_BIT1. 



) 

} 

else 

{ 



NEXT_PUR.PRD.RESULT.Bm. 



( 

NEXT_PUR_PRD_RESULT B/T1 



> 



} 



retumjcount); 



30 



35 



W «uilioie < j>ur_pno^s^ea( 



{ 



unsigned rtf -sav J»t1. •aav.resi; 
PUR_PRD.SEl.VARS; 
PUR.PRO.SEL.PREtIM; 
wi» * resu?u^bftma>>$iart 



•tnjatwne©*Dur_pna b itmap 
struct tmm. D ^«_pur.pn5.bimap 
•num Oooean^operetor ooer 
nrua bitmap f esuns.bitmap 



J 
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r Gong to mark ail muttiote purcnaaa rue™* w 
Purjw.m^.pur^ j^^^"^. tor ^ customer •/ 

5 p»um«0: map < map^«no; map~) 
* ( (i e "map) >a j ) 
tor f founorO. i=0: k/; ^ ) 

f ( •pur_pra_ £ms 4 . pur _p ro _ map , 

found**; 

* ( found nti 

{ 

•■v.nwi a resutts: 
S8v_M1 » Pur_pno_brts; 

count**; 

rf ( found ==? \ 
{ 

"*av_res1 f= -sav ortl 
count** 

20 , ' 

) 



Z3 



) 



) 

else 

{ 



J NEXT - PUR - p TO_RESULT_BrTl; 



) 



, NEXT - PW -PR0.RESULT_BIT1. 



reiumiceunt). 



30 



un»<oned <m 'h».mi, -jav.ren 
PUR_PRD_SEL_VARS. 



35 



ewua txtmao W_pio bitmao 

*™ ao •ne"_Pu7_pro_ enmaD 
enum eootean_operBtor eper 
evua bnmao "resuttj_t>nmap 
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PUR_PRD_SEL_PREUM. 

results ■ resutis_brtmap->*tBm 

pur_prd_map c pur_prd_bitmao-»$tert; 
pur_oefn_mao - n©xt_puf_prt_DrtmaD->surt; 
5 foncount^O; map < map_end: map*-*) 

' if((j*imap)>«2) 

{ 

for ( found =0 1=0; i<j: t*+ ) 

' r tooKs at onty rtems defined m next ^pur^prd.bitmao tor eacn customer •/ 

tf (*pur oetn map & *pur _prd_bas ) 

{ 

r now see item met the search cnterta */ 
10 tf ( *pur_prd_DOs & *pur_pro_map ) 

{ 

found**', 

r count it if at least the 2nd item V 

if ( found s»1) 

{ 

sav/esi = results; 
sav_Drtl « pur_prc_Bits; 

) 

n 5 etse 

( 

count**. 

•results 1= •our_prd_brts. 

if ( found == 2 ) 

{ 

count**: 

*sav resl |= *sav bill: 

) 

20 } * 

) 

NEXT PUR PRD RESULT BIT1. 

) 

) 

eise 

( 

r not enut recorcs skip past 0 or 1 bits •/ 
for ( i=0 » * • i** ) 

NEXT PUR PRD RESULT^BlTl. 

} 

) 

) 

retum( count). 

} 

ru any_3 _pur_prd_»*iect{ 



30 



35 



struct bitmap ■pur_prd_bnmaD. 
tvuo DAmao *next __pur - pra_brtmap. 
enum Dootean_operator ooer. 
strua oitmap *resu!ts_onmap 

) 

' unsigned rt •sav.MI. *sav_bit2. lavjisl. •sav.resZ 
PUR.PRD.SEL.VARS: 
PURJ»RD_SEL_PRELIM. 
results = results bttmap-> start: 
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20 



purj*TJ_map = pur__pnj twmao.>itart 
pur_defn_rnap = ne*j>u7_pro brtmaD->start 
ton counts); map < map_ena; map— ) 

* ( 0 s •map) >« 3 ) 

tor ( founo^O. rO; kj; r** ) 

{ 



■ £^ * eacn corner , 



r now see item met the search cntena 7 
* ( ■pur_pra_brts £ •pur_prd_map ) 

10 found**: 

r count n rf at least the 3rd aam •/ 
if { found ** 1 ) 

«ev_resl * results; 
} **v_brt1 * purjjrt^tots; 

else 

* ( found on 2 ) 

sav_res2 = results: 
^ sav^O!t2 n pur_pra_bits. 

else 

{ 

count 

"results f= •pur_prd_bns; 
if ( founo == 3 ) 

count**. 

"surest |= -say brtt. 
couni**. 

*sav_res2 |= •sav - b»t2. 

} 

} 

) 

j NEXT - p W. p RD.RESULT^B!Tl. 

25 > 

else 



{ 



r not enut recorcs s*,p p asl , or 2 ^ 
ior { i-o. • « j !«.• ) 



) 



"EXT_PUR_PRD_RESUIT_BIT1 . 



3C ^ f«tum(countj. 



■nt iast_pur_prd^ seiaa( 



bitmap Wj^tm^ 
•^Orunap^ ^ 

•hum tKXwean^operator oper 
3 5 p* 3 ^-P Tesufts bitmap* 
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15 



20 



PUR.PRD_SEl.VARS; 
PUR_PRD_SEl_PRELIM. 
results « fesutts_onmap->staa 

pur _prd_mao = pur__prd_brtmac>-> start; 
pur_aetn_mao = nexi^ur_ora_onmaO"*> start; 
foneount=0: map < map ana: map***) 
{ 

if ( (j = -map) »= 1 ) 



r eovance to tast Prt tor this customer 7 
for ( i=1; i«j; »** ) 

i 

NEXT PUR PRD RESUIT_BIT1; 

) 

wnile { j- > 0 ) 
{ 

r looks at only items defined tn n««_pur_pno_Ortmap for eacn customer •/ 
rf fpur oem map & *pur_prc bits ) 

C 

r now see item met tne searcn cntena */ 
( *pur _prc Dits & •pur_pro map ) 



) 

brea*. 



count**: 

•results {= •pur_prd_brts: 



) 

PREV PUR PRD RESULT BIT. 

) 

for ( j. i < i. •*»* ) 
{ 

NEXT PUR PRD RESULT BIT1, 

) 



35 



) 

return! count). 



30 



rt ntl^^^pro^seiectf 



{ 



strua oitmao 'Durj>ro_bftmaD. 
strua Oftmao ■■nert _pur_pro_Drtmap 
enum oooiean_ operator ooer 
strua oitmao "results ortmap 

) 



PUR_PRD_SEL_VARS 

PUR.PRD_SEL_PRELIM. 

results = resuns_brtmap->star*. 

pur «P fc3 _ m ao = Pur_j5n3_brtmar>>siaa. 
pur_oem_map = ne*t_pur_pro - Drtmao->stan; 
toncoum=0. map < map_enc map**) 
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if ( (j « map) >* 2 ) 

r ■ovance to last bit for tm$ customer •/ 

for ( founo=0. i<r } 
{ 

^ NEXr_PUR_PRD_RESUlT_BrTl ; 

white ( >- > o ) 

{ 

r looks at oniy items defined in r*xt_pur_prc_b«mao tor eacn customer •/ 
rr ( pur_oem_map & •pur - pro_bns ) 

touno>«»-. 

rf ( found cs 2 ) 

{ 

r now see item met the search ernena 7 
jf ( *pur_prfl_0its & •pur_pro_map ) 



^ "results |= *pur_prd_brts; 
break, 

} 

) 

1 5 p *cV_PUR J>RD_RESULT_BrT. 

f° r ( j j * ». r* ) 
{ 

NEXT_PUR_P RD_R£S UlT.BIT 1 . 

} 

else 

{ 

r not enuf recorcs skid past 0 or 1 bits */ 
20 for ( t=0 t < . ; 

{ 

NEXT PUR PRO RESULT BIT1 

} 

> 

) 

retum( count). 

) 



T Note^this function could o. cone severe, ways initially set uo to 
rW^tl 0 ^?.^ 0 " ** 2 Durma5es B0TH ™ the search cntena 

Now ourcnase onmao maixmg all ourcnases 

among the last 2 that met tna ernena •/ 5 

nt Iast2_pur_pn3_saiee{ 

struct Drjnao t>ur_prd_bitmaD. 
itrua bitmap •r»w_pu7_prd_bitmap. 
enum booiean.operstor ooer, 
3 0 *tma bitmap tesutts bitmap 

< 

PUR_PRD.SEt.VARS 
PUR_PRD_SEl_PREUM. 
results s resuits_bitmap»> start: 

pur_pro_map = pur_prd_brtmap->stan; 
3 5 Pur_oefn_maD ■ next ^ur_pro_bitmapl>stan; 

fortcounr=0; map < map.eno: map**) 
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*<0 e "map)>=2) 

{ 

r advance to last bit for tna customer */ 

for ( current = 0, founo = 0, »»t; kj- *** ) 
{ 

NEXT.PUR_PRD.RESL/UT BIT1; 

5 > 

while ( t- > 0 ) 

{ 

r looks at on\y nems defined m next_pur _pro_bitmap for eacn customer 7 

it (•pur_oern map & •purpro oits ) 

{ 

current 

r now see item met the search criteria 7 
if ( •pur_pro_Oits ft •pur_pro map ) 

10 < 

count**; 

•results |= •purjjrdjMs; 

break: r found 1 . stop lootwng now •/ 

rf ( current >= 2 ) 
break: 

} 

PREV_PUR_PRD RESULT BIT 

} 

15 for(;j<i.j**) 

{ 

NEXT_PUR.PRD RESULT BITl 
) " 

) 

aise 

{ 

r not enuf reccras skid past 0. or i pus •/ 
for { isO. i < j j 

20 { 

NEXT_PUR_PRD_RESULT BITl 

return^ count). 

) 

r Note' this function coukl be oone several wwy%. ir«rti«Hy set uo to 
seiea customers wnose tast 5 purcneses ALL met tne searcn cmena 

2 5 Revtseo so mat seiea customers wno ned at least 1 of last 5 purcnases 

that met tne cmena Now creating purcnase pitmap marking an purcnases 
among tne last 5 tnat met tne criteria */ 
ni tast5_pur_prd_se>ect( 

struct bitmap •pur_prd_bitmaD. 
struct bitmap •next _pur_prd_Ditmap. 
enum booiean^ooerator oper . 
struct bitmap TesuRs bitmap 

) 

3 0 ( PUR.PRD.SEL.VARS: 

PUR_PRD_SEL.PRELIM. 

results = resuiu_Oftmap-> start. 

pur_prd_map « pur_prd_bitmap-> start, 
pur_oetrwnap « next_pur_prd_bitmap->start 
foncount=0: map < map ena; map**) 

35 { 

{ 
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r advance to last bit for ttns customer */ 
tor ( currant « Q. founo « 0. i=1 ; Kj: n-* ) 

( 

NEXT PUR.PRD.RESULT.BfTl; 

} 



r looks at only items oef med n next_pur_prd_pftmap tor each customer */ 
fpur oefn map & *pur_prd_otts ) 

{ 



r now in «am met the search emena "/ 

if < ^ur_prd_bns & •pur_prd map ) 

{ 

count**; 
"results t« •pur^pro.bits: 

broaic ~ r found 1. stop looking now V 

) 

if ( current >* 5 ) 
brae* 

} 

PREV_PUR_PRD_RESULT BIT; 

) 

15 lor ( j; j < i;r» ) 

{ 

NEXT PUR_PRD_RESULT BrTt; 

} 

> 

else 

{ 

r not enuf recoros. skip past up to 4 bits */ 

tor ( »=0. i « j. ) 

20 * NEXT PUR PRO RESULT BITl; 

) 

) 

} . 

retum(count); 



sit •Yfl_pur_prd_ttrpe< unsigned mt •oata. unsigned mt value, unsigned mt nigh_vatue. 

2 - struct tist_ types list, enum field_operaior operator, mt num_ items struct bitmap 

*resuns_map. unsigneo snort *map. strua pitmap lpur_prd_bRmao ) 

{ 

■ n oenom, evy. 
unsigned mt °dats_end. 
unsigned mt *sav_oata. 
unsigned mt *sav_bft; 
iMwgrmo mt *sav_resuits; 

3 0 PUR.PRO.VARS; 

LIST.PRELIMS. 



switch ( operator ) 
< 

case eouat. 

PUR.PRD.AVG w PUR.PRD( if( avg ■« value ), MISSING_LARGE_VALUE ); 
break; 

35 case not equal: 

PUR_PRD.AVG_PUR_PRD( ff( avg t« value ). MISSIN6.LARGE.VALUE ); 
break: 
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case •ouai_ttst 
pur_pro_map = Durj>rd_brtmaiv> start 
foq count =0; map < map ena; map**) 

{ 

if ( •map >= 1 ) 

{ 

sav_oata * data: 

sav_ort = our _prd_twts: 

sav^resuns » results; 

oaia_eno = data * •map: 
for ( toiai=0.oenom=0. data < data ana: date** ) 
{ 

jfCdata < MISSING LARGE VALUE) 
< 

denonv**: 
total -oata: 

) 

NEXT^PUR.PRD.RESULT^BIT. 



) 



if < denom ) 

avg = (ffit)(((fbat)toui / (Hoat)oanom) * .5). 

eise 

avg s 0; 

found = 0. 

25 hstjieao « list. 

wnue { list nead '= NULL ) 
{ 

rf ( tisi_head->typejst == vanabie_vaiue ) 

' ff | avg « bst_head->mteger ) 

{ 

touno** 
breav 

) 
) 

else 

rf ( iist_nead->tyo* J»st — range_vaiue ) 

* rf | (avg >= iistj>ead*>detween_intege'->iowi && 

|avg <= iist_neao->Detween_mieger«>nign) ) 

{ 

found** 

2 5 orea*. 

) 

} 

list neao s iist_neao-»nexi. 

1 

if ( found ) 
( 

data = sav_data. 
pur_prd_bns » sav^Dit: 

3 0 results = sav_resuits. 

data_end * data ♦ •map. 

for ( : data < oata_end. data** ) 

{ 

•results }= •pur^prd^brts. 

count . 

NEXTJ>UR_PRD_RESULT_B!T. 

) 

) 

) 

35 
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) 

re tumj count) 
bf«ax. 
case not.eauaHist. 
pur_prd_map c pur_pro_bitmao->start 
fort count =0: map < mao eno map**) 

I 

if ( fnap >= 1 ) 
{ 

sav_oata e aata. 
sav_oit « pur_prd_brts; 
sav_resurt3 = results; 
data eno = data ♦ fnap; 



tor ( totat*O.denom=0: data < oata_end data** ) 

* if ( -data < MISSING_LARGE_VALUE) 

< 



) 

15 } 



total ♦« *data: 
NEXT_PUR.PRD_RESULT.BIT; 

if ( denom ) 

avQ » <int)(({float)total / (ftoatwenom) * 5); 

else 

avg*0: 

found «0; 

hst.head = kst. 

wnTie ( itst.nead »= NULL ) 

2 0 * if ( hst_nead-»rype_Ust =« vanab»e_vaiue ) 

' tf ( avg == list head->integer ) 

{ 

found**, 
breax 

) 

) 

eise 

if ( hst_haad->type jtst == range.vaiue ) 

25 { 

if { <avg >= iist_neaa->Detwaen_mtege'->»ow> 

l.vg <s iist_naao->oarwaen_mieger->nign) ) 

( 

found** 
brea*. 

) 

) 

list nead = iist_naad->nert. 

30 » 

if ( 'found ) 

{ 

data - sav_oata. 
pur_prd_bits = sav_brt. 
results = sav_re suits; 
data.end = data ♦ 'map; 
for ( 7 data < data.end. data** ) 

{ 

•results t= •pur_prd_bns; 

«2 r 

count**, N EXT_PUR.PRD_RESULT.Brr. 

) 

) 

) 
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) 

return! count), 
bream 
case greater man: 

PUR_PRDAVG_PUR_PRD{ rl( avg > vaiue ). MISSING_LARGE_VALUE ). 
5 breaK: 

case less man- 

PUR_PRD_AVG_PUR_PRD( rf( avg < value ). MISSING_LARGE_VALUE ). 
orea*. 

case ore ater man eouai 

PUR_PRD1aVG_PUR_PRD( rf( avg value ). MISS1NG_LARGE_VALUE ) 

breaK. 
case less man eoua! 

PUR.PRD_AVG,PUR_PRD( ti( avg <= value ). MISS IN G_LARGE_ VALUE ). 
1 q breaK: 

case oerween: 

PUR_PRD_AVG_PUR_P-RD( «( avg « value && avg <= hign_ value ). M!SSING_LARGE_VALUE ). 
break: 
default. 

rf (purcnase Query) 

eW_nandier (PURCHASE JJNKNOWN_OP. ERROR. NONSTATUS, "avg^pu^orojarge-). 

•else 

error_nanoier (PRODUCT_UNKNOWN_OP. ERROR. NONSTATUS M avg_pur_prajarge"). 

break: 

15 ) 
) 



rt evopurprd medium) unsigned snort Mala unsigned rt van*, unsioneo ml mgn.value. struct iistjypes Ust. 
" a num fieia_ooerator operator, int num_nems. struct Ditmap Tesuns_map. 

unsigned snort "map. strua bitmap ■pur - pro_Drtmap ) 



{ 

nt oenom. avg: 
unsigned snort •data.end. 
^ ^ unsigned snort •savjsata: 

unsigned tnt *sav_bit, 
unsigned in! *sav_results: 

PUR_PRD_VARS. 

LIST_PRELIMS. 



switcn ( operator ) 

i 

case eoua I 

PURJ>RD_AVG_PURJ»RD( rf( avg =» value ). MISSING_MEOIUM_VALUE ). 

breaK: 
case not eouai 

PUR.PRD.AVG.PUR.PRD{ if( avg »= value ). MISSING_MEDIUM_VALUE ). 

breaK: 
case eoua Mist 
pur_pro map c pur_j3ro^brtmaD->stan. 
tortcoum*0: map < m append: map**) 

' if ( Tnap >= 1 ) 

Mvcata = data. 
iav_bn s pur_prd_dits: 
sav_resuits = results; 
oata_end * data ♦ *map: 
for ( totai=0.aenom=0, data < oata_end: data** ) 

{ ifCdata < MISSING MEDIUM.VALUE) 

{ 
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} 



dencm**, 
total ♦= •data; 



NEXT_PUR_PRD_RESULT_BIT. 



5 if ( oenom ) 

avg * (mt)(((noatnotaJ/rnoat)oanom) * .5). 

else 

avg = 0. 

found » 0. 

Itstjieao = list; 

wnue ( hst head ♦= NULL ) 

{ 

if ( list_head->rype list == vanaote value J 

{ 

10 rf ( avg == list head^integer ) 

{ 

found*-*; 
break; 

} 

) 

else 

rf ( bsi_head->iype tax == rang© value ) 

{ 

15 rf ( < av 9 >= hst_head->oetween_inieger.»iow> && 

^ (avg <= us^neao^Defween^integer^nign) j 

found**, 
break. 

) 

) 

list_head » hst_neao->next; 

) 

if ( found ) 

20 { 

data = sav_data 
pur_prd_bits = sav^bit: 
results = tav_resuits 
aaxa_eno » data ♦ "map. 
tor < . oata < data end data** ] 
( " 

•results f= •pur_pra_brts. 
count** 



« ) 

) 



NEXT_PUR_PRD_RESULT_BrT. 

) 



) 

returnt count), 
oreak. 
case not_e3uai_ns! 
pur_pra_maD = Dur _prc o«tmap->stan 
foncount=0. map < map^end. mao**)' 

rf ( *map >= 1 } 
{ 

sav cata = data 
sav^ott a pur _prd_bits. 
*av_resutts * results; 
data_end = oata * •map- 
for ( iotai*0.denom=0; data < data_end; data** ) 



35 



iffdata < MISSING_MEDIUM_VALUE) 
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} 

} 



( 

total ♦« *oata. 

NEXTJ>URJ>RD_RESULT_BrT, 
if ( denom ) 

5 av 5 c («)(((noatnoui / (floanoenom) ♦ .5); 

avo«0; 

founo s 0; 

hst_h«aa ■ list: 

wruie ( hsi_nead != NULL ) 

( 

jf ( l»t_haao*>typejist == vanabto_vaiue ) 

10 if ( evg == hst_heao-»cnteoer ) 

found**; 
DraaK 

} 

) 

else 

if ( bst_haad->type_|jsi » range_vame ) 

25 rf( {av 9 >a ^haaov^oetween.mteoer-xow) && 

^ (avQ <= tast_neao^Detween_integer.>nigh) ) 

founds; 
b/aait: 

> 

} 

list_head = hst^head->n«xt; 

if ( found ) 

20 { 

data = sav_aata 

pur_0rG_Drts a sav pit. 

results » sav^rosuitj 

data_end e aata * "mas 

for ( . aata < aa;a enc aata*- ) 

{ 

Results l= 'our_pro_Drts. 
count** 

NEXT_PUR_PRD RESULT BIT 

) 

retumt count). 
Dreax.. 
case create- man 

PUR.PRD;AVG_PUR_PRD( tf( av B > va.ua ). MISSING.MEOIUM.VALUE ). 
case iess_tnan 

PUR_PRD_AVG_PUR_PRD( <f( av 5 < value MISSING.MEOIUM.VALUE ). 
case area:erjnan_eauai 

PUR_PRD"1avG.PUR_PRD( rf( av 0 >= value ,. MISSING.MEOIUM.VALUE ). 
case »ess_tnan eouai 

PUR_P~RD_aVg_PUR.PRD( if( evp « value ). MISSING.MEOIUM.VALUE ). 
case oerween 

3 5 PU;-"RD.AVG.PUR.PRO( «( avg « v„ue U Bvg „ hign _ ¥aiue , MISSING.MEOIUM.VALUE ). 

default 
if(purcnase query) 

Zvjmmm (PURCHASE.UNKNOWN.OP. ERROR. NO.STATUS. -avcLpur.prc.meo.unO. 
erTOr - hana ' W ' P «O^CT.UNKNOWN.OP. ERROR. NO.STATUS. ^ 

} 

) 
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uru^nwj inon -map. itoca on/nap -pur _pra_ 0 i lm ap ) 
, """^ (FUNC_NOT_AVAIL. ERROR. NO.STATUS. 'A^ Pu^^owc tor . Mtt a no, .v.^o. -,, 



avg_j>ur_^_snort( unsigned cw *data. unsigned rrt value, unsigned fit mgn_vaiue. struct hst^iyoes list. 

enum fietd_operator operator, rtt num_sems. struct Bitmap Tesufls map 
( unsigned snort "map. struct Ortmep •pir_prtJ_tatm*p ) 

« denom. avg: 
unsigneo enar *daia_end; 
unsigned cnar *savjdata: 
unsigned mt •aavjSt 
unsigned mt "sav^resulu; 

PUR.PRD.VARS; 

1C LIST_PRELIMS; 

swttoi ( operator ) 
{ 

case eauat 

PUR_PRD_AVG_PUR_PRD( rf( avg == value ). MISSING SHORT VALUE ) 
breax; '* 

case not_eouaJ 

™*^ RD - AVG - PUR - PRD( rf( aV ° ^ VaiU8 )f MISS,NC « SH0RT ^ALUE ). 
2 0 case equaijist: 

pur_pra_map « pur_prd_bitmap->stan; 
for< count =0; map < map_eno: map~) 

if ( *map >« 1 ) 

{ 

sav_aata = data, 
sa v_dit s pur_pn3_bfts 
sav_resurts = results. 
2 r data_eno = oaia ♦ *map. 

D j° r ( totai*0 oenom=0. oata « oata_eno. oata~* ) 

ifCdaie < MISSING SHORT VALUE) 
i ' 

oenom**. 
total ♦= *oata 



) 

) 

3 0 rf ( denom ) 



NEXT_PUR_PRD_RESULT_BIT. 

) 

avg = (mt)(('floantotal / (float)oenom) ♦ 5). 



eise 

avg s 0. 

touno » 0. 

Iist^nead = list; 

wnjie ( list nead »= NULL ) 

{ 

if ( l«t_nead->typejist == variable^ value ) 

35 if ( avg ec tet_head->mteger ) 

found**; 
break. 
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) 

) 

eise 

if ( bst_heao->type hst == range vaiue ) 

{ 

^ if ( {»vg >c lisi_nead->detween_rrneger->row) M 

{avg <= h$1^heao->Deiwaan^iniegar->nign) ) 

found**; 
braaie 

} 

} 

bst_head = ti$: head-*next. 

) 

rf ( found ) 

10 f 

data s sav_aata. 

pur_prc_Orts s sav_o.it. 

results * sav^resuiTs: 

data_ano = oaia ♦ fnao. 

for ( ; oata < oata end: data** ) 

{ 

•results |* •pur_pro_bits; 
count**. 

2 5 ■ NEXT_PUR_PRD_RESULT_BfT. 

) 

) 

reium(count), 
break: 
case not_eouaUisT 
pur_pro_mao = Dur_Drc_Di:maD->start. 
for<count=0; mao < maif ena map—) 

»f ( *map >= 1 ) 
{ 

sav_oata = oata 
sav_oit = Dur_prd^ons 
sav_re suits = results. 
aata_eno = oata ♦ fnao 
jor ( totair0.oenom=0. oata < oata.end. data— ) 

iffdata < MISSING_SHORT_VAlUE) 



20 



denom— ; 
total *= "data: 



) 

30 * ( denom ) 



NEXT_PURJ>RD_RESUlT_BrT; 



avg = (tnt)(((fioat)toui/ (noatioenom) ♦ .5). 



etse 

avg s o. 

found = 0: 

list_heao = list; 

while ( list head t= NULL ) 

{ 



35 * < **Lheao->type_bst variable^ value ) 

if ( avg == list_heao->»nteger ) 



found—; 
breaK,' 
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) 

•tee 

if < (avp >• ^tiMH^.fli^i w 

founow 
tweak; 

} 

} 

list.heao « hst.neao->next; 

if(!founa) 
( 

oata = sav.oata: 

results * aav.resuas; 

oata.ano ■ aata ♦ -map: 

|or ( ; oata < oata.eno; cata** ) 

•results }e •pur^pro bus: 
couni**; 

NEXT.PUR.PRD.RESULT.BIT. 

15 ) 

) > 
retumt count). . 
oreaK: 
case greater man 

PUR.PRD.AVG.PUR.PRD/ « avg > v.*. , MrSSlNG.SHORT. VALUE 
case less man 

2 0 2J.W0.AVG.WH.WIX « «, c vaiue , M.SS.NC.SHORT.VALUE , 

case greater man eouaf 

PUR_PRO;aVC.PUR.PRD ( .v, „ vaiue , M,SS.NC_SMORT.VA LU E , 
case less man eauai 

PUR.PRD.AVG_PUR.PRD, *, avg « v.** ,. M.SS.NG.SHORT.vAlUE , 
case oerween 

PUR^PRD.AVG PUR PRDf f,[ avo <= vaiue aa a ^ 

firea*. * " 9 va,ue " av * cs > missing. Sh 0 RT_ value - 

oefaun 
if (Durcnase Query > 

wm .7ror_n.no., ,PURCHASE_UN« N OWN_0P. ERROR NO.STATUS av SJJuf _p f0 iwr , 
^ .nor_n.no., (PROOUCT.UNKNOV^.OP ERROR KO.STATUS --vg^™^, ' 



} 

30 



) 



•rror.hwwer (FUNC.NOT.AVAIL ERROR. NO STATirc -a 



35 , 
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int ■vn_pur_pro_«nnp<cnar •data, cnar *s*arcn_stnnc. fit str_ian. struct «st_iyoes tat. 

•num freto_opafator operator, fit num^nems. struts prtmap Tasuns^map. 
unsronoo snort *map, struct cmmap *pcr_prc pamap ) 

{ 

•nor_handier (FUNC.NOT AVAIL ERROR. NONSTATUS. 'Average PurcnaaayPfOdud tor a strmo a not svanaoie 

} 



rrt avo^.pm.mHao.itnnotcnar -data, cnar •aaartft_«nng. ait sir lan. struct asi.iyMS Ust 

•num fieio_oper»tor operator, cm num^nams. struct tfltmap •msu*s_rnap. 
^ unsigned anon -map. struct pnmap ^>uVj>rd_prtmap ) 

1 0 ,TOf - hlnd,IK <™NC_NOT_AVAIL ERROR. NONSTATUS. "Average Purenasa/Produci tor a moced string is not 
evaitapJe."): j 



int •vp^^rd.fstnn 0 (uns»pnao snon «oata. cnar -sean^stnng. fit str.len. fit fiaid.oftMt. struct mistypes "tat. 

•num freio_operatpr operator, fit num_nems. struct prtmap *resuiu_map. 
unsigned snort •map, atrua pnmap *pur_prd_ prtmap ) 

- - sS^ (FUNC - N0T - AVA1U ERROR. NONSTATUS. "Average Purcnase/Pn^uct tor a fat* stnno « not 
2^ avauawa."). j 

•nw.fand(er(FUNC.NOT_AVAIL. ERROR. NO STATUS "Aver.™ Puns-M/P™**, to, . - 

■wailaoie"). } - • Purenasa/Prooua tor a mixed faeo stnng a not 

20 

™_t*r«*r (FUNC.NOT.AVAIL. ERROR. NO STATUS ^ P _ « 
} hiatus. Av«r»^ PurcnasayProduct tor a on is not avaaaWe "); 

25 " ^^^-^ ^ZTr ^ " — «"»™ *. n, 9 n va.ue strua fast types -Ust 

•num f*to_ooeraior ooarator. mi num_«ems. struct prtmap -results map 
unsigned snort -map. strua prtmap *Pur_pra_Drt/nap ) 

unsigned fit •data_end; 
unsrgneo mt •savjdata. 
unsigned mt •aav^on: 
unsigned sit 1av~rosults; 



30 



35 



PUR.PRD.VARS; 
L!ST_PREIIMS. 

■wrtcn ( operator ) 

< 



il: 

PUR.PR0_TOTAL.PUR.PRD( V{ total « value). M!SSING_LARGE_VALUE ); 
iso nct_eouaJ: 

PUR^PRO.TOTAL.PUR^PRD{ tf( total * vaiua), MISSING.LARGE.VALUE ); 

case ecualjut: 
PUR_PRD_L00P_PARTJ( ); 

PUR.PR0_LOOP.GET.TOTAL( MISSING LARGE VALUE ) 
touno«0: 
asMiead « kit 
wnito ( ustjiead ** NULL ) 
{ 
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if ( fcst_he»d-»Type_bst « variable value ) 

{ 

if ( total w bstjie*d->inieger ) 

{ 

found**; 
bfaajc 

5 > 

D else 

if ( bst_nead->type__bst «= range value ) 

{ 

if ( (total >= hst_heao->oetween_mteoef->»ow) && 
(total <= h*tJ>eao^betweenjnteger->nign) ) 

found**; 
break, 

) 

10 

hst_nead = hst heao~>next. 

) 

if ( found ) 

PUR_PRD_LOOP ENDJTOTAL: 

break: 
case not_eoua! hst: 

PUR_PRD_LOOP_PART_1( ); 

PUR_PRD_LO0P_GET_T0TAL( MISSING_LARGE_VALUE ). 
15 founo = 0. 

list_heao » list. 

wn«e ( list head NULL ) 

( 

if ( hst_neao->rype hst as variable value ) 
{ ~ " 

if ( total == hst_heao«»imegar ) 

( 

found**. 

20 , 

eise 

if ( bst_nead->type list range value ) 

{ " 

if ( (total >= iiS!_heao->Detvyeen_inieger.>iowi && 
^ (total <s •is:_nea3->oerween~inte9er->nign) ) 

louno** 
brean 

25 ) 

} 

} 

hsi neao » hst nead->next 

) 

if ( •found ) 

PUR_PRD_LOOP END TOTAL 

break, 
case greater_tnan 

PUR_PRD_TOTAL__PUR_PRD( if{ total > value). MISSING LARGE VALUE 1 
3 0 breaK. 

case less jnan 

PUR_PRD_TOTAL_PUR_PRD< if( total * value). MISSING LARGE VALUE ) 
Orea* ' 

case greater jnan_eoual. 

PUR_PRD_TOTAL_PUR_PRD( rf( total >= value). MISSING LARGE VALUE V 
break: — *~ 

case tess_tnan_eoual 

PUR_PRD_foTAL_PUR_PRD( rf( total <= value). MISSING LARGE VALUE V 
break: - - 

3 5 case between: 

PUR_PRD_T0TAL_P_R_PRO( «{ total »« vaiu. && total «» revalue). MISSING_LAR6E.VA1.UE ); 

Default: 

it (purcftaje_ query) 

ofror.narwiw (PURCHASE_UNKNOWN_OP. ERROR. NO.STATUS. total _p U r_prt_i afB e-); 
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else 

efTor_nanoier /PRODUCT.UNKNOWN.OP. ERROR. NONSTATUS. loui_c>u'_orfl_ large") 

break; 

) 

=> } 

rtttotai^ur_prd_medium( unsigned snort *oata. unsigned ml vaiue. unsigned mt n»gn_ vaiue. strua us: types Its:. 

enum fieid_operator operator int num.items. strua Ditmao "results map. " 
^ unsryneo snort "map, strua bitmap •pur_prt_prtmap ) 

unsigned then *data_end; 
unsigned snort *sav_oata; 
unsigneo mt *sav_on. 
unsigned mt w sav results; 

PUR_PRD_VARS; 

UST_PRELIMS. 

swncn { operator ) 

{ 

case eoual 

15 PUR_PRD_TOTAL_PUR_PRD( if( tout value). MISSING MEDIUM VALUE ) 

break: - - • 

case not_eoual. 

PUR_PRD_TOTAL.PUR_PRD{ iff total *= value). MISSING MEDIUM VALUE ) 
break: 

case eoual list 
PURJ>RD_L00P_PART_1{ ). 

PUR_PRD_LOOP_GET_TOTAL( MISSING.MEDIUM VALUE ). 
touno = 0. 

j n hst_neao = list. 

wnne ( list nead »= NULL ) 

I 

t < bst_head->tvpe Jist o« vanabie_vatue ) 

if ( total e= hst_heao->mteger ) 

{ 

found**; 
breaK. 

) 

2 5 

if ( hst_heao->type list == range vaiue ) 

{ 

if ( (total >= hst_nead->oetweenjnteoer->iow) && 
(total <= iist_nead->oetween_mteger->nign) ) 

found**. 
breaK. 

) 

30 ) 1 

list_neao = list heao->next 

) 

if ( fpund ) 

PUR_PRD.LOOP.END TOTAL. 

oreaK. 
case not_ eoual list 

PUR_PRD_LOOP_PART_1 ( ); 

PUR_PRD_LOOP_GET_TOTAL( MISSING MEDIUM VALUE ) 
2c found ■ 0: 

Hst Jiead « hst: 

while ( bst_nead ♦= NULL ) 



SUBSTITUTE SHEET (RULE 26) 



WO 95/1 1487 



102 



PCT/US94/12074 



if ( list_»w»0-»typejist == vanable.vaiue ) 
if ( total «» !*t_neao->mteger ) 



25 



founo*« 

eise 



rf ( **Lhead.»tyDe Jisi « range_vaiue ) 

A ( (total >= hst_r>eao.>t>etww> mieger.>iow) &4 



founo**. 

10 Drea*. 

) 

) 

} 

^ bst^head « list_head.>next: 

( ffound ) 

toeak; PUR - p «>_I.OOP_END_TOTAL: 
case oreater man- 

15 : r U e :- PRD - T ^AL.PU R .P R0 ( -( tota, > v.,-, MISSING.MEDIUM.VALUE ,. 
casaiess man 

PUR_PRD_TOTA L _P U R_PR D( , ( l0Jat « va(ue) MISSING _ MEOlUM _ VALUg ); 
case greater than eauai 

PUR.PRDlTOTAt.PUR.PRD, * , ola) >8 „„_,, M.SS.NG.MEDtUM.VALUE ,. 
case less man eaual 

2 0 ^- P " RD - f0 ^-^RD( * tota. « v, iue , MISSING.MEDIUM.VALUE ,. 
case oetween 

0 i:r• PR0 ' TOTAL " Pl ' R ' PRD, ,0UI " " ^ " ^"->- ^S.NG.MEO.U M .VAtUE ,. 
rf iPurcnase^Query) 



•rTor.tanoler (PURCHASE.UNKNOWN OP ERROR NO STAT..* 

- • cwo * N 0_STATUS. notal_pur.pre_meo.um-). 



} 



•ia« 
break: 



arw.narw (PRODUCT.UNKNOVW.OP. ERROR. NO.STATUS. 1ota._Dur_Dro.med.uml. 



} 



rt toul_our_o-I.Oa..( una.pr»d ««t -data, un,^ „ „,_.. „ h t0 r_v*ue. an* hs. typ., 

3 0 enum taw.oparator operator, tnt num.nemj. struct bitmap Teiuru map" 

unugneo tnort *mao. itrua Bitmap •purjjfo.ottmap ) ~ 



) 



arror.nanoa, (FUNC.NOT.AVAJl. ERROR. NO.STATUS. Iota. Purowa/Prooua for a oat. a not .va.laDlO; 



rt to,a, -«0«>_»nort( un l9 neo enar -oata ura^n-r. . 
35 { **« «n« tmm.p^^^T^ -"""map. 
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unsigned char •data_end; 
unsigned enar *sav_aaia: 
unsigned nt •sav_bit; 
unsigned nt •sav^resutts; 

5 PUR_PRD_VARS; 

LIST^PRELIMS; 

switch ( operator ) 

{ 



10 



case equal: 

PUR_PRD_TOTAL_PUR_PRD( iff total value), MISSING_SHORT_VALUE ):' 



case not_eouat: 

PUR_PRD_TOTAL_PUR_PRD{ if( total * value). MISSING SHORT VALUE ) 
breaK 
case equaMist 

PUR_PRD_LODP.PART_1( ); 

P U R_PRD_LOOP_ G ET_TOTAL( MISSING_SHORT_VALUE ); 
tound ■ 0: 
list_heao = list 
whae ( list nead la NULL ) 

m { 

■*-- ) if ( list_neao«>type list == vanabte value ) 

. { 

if ( total == list_heao->imeger ) 
{ 

found**: 
break. 

) 

else 

if ( usr neao->rype_tist == range value ) 

20 { . 

if ( (total >= iist_nead->derween_mteger->iow) && 
(total <= ust_neao->c>erween_tnieger->ntgn) ) 

found**. 
breaK. 

) 

} 

) 

list heao = list heao->n**i 

25 ) 

if I louna ) 

PUR_PRD LOOP END TOTAL. 

braa*. 
case not_eouai_hs! 

PUR_PRD_LOOP_PART_l( ). 

PUR_PRD_LOOP_GET_TOTAL( Ml$SlNG_SHORT_ VALUE ). 
founa s o. 

tts!_heao = list. 

wme ( nst_nead ♦* NULL ) 

30 { 

if ( list_heaa->'fype ttsi == vanaoie vaiue ) 
{ 

if ( total == list rieao->tnteger ) 
{ 

found**. 
breaK. 

) 

else 

35 t ( lisi_head->rype_iist == range_vatue ) 
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if ( (total >= iist.fwao^oetwee«_inieoer->iow> 
^ (total <* M^h«ao-»oetw»en^inieger->m5n) ) 

founo**, 
ortax, 

^ tat.heao = bsi_heao«>next. 

rf ( found ) 

PUR.PRD.LOOP.END.TOTAL; 

casa greater than 

PW.PRO-_TOTAL.PUR.prd, „ ^ . ^ m.SS.NG.SHORT.VALUE ): 
10 ease less man: 

PUR.PRD.TOTAL.P U R_p RO( „, tot _, , ^ M!SSING_SHORT_ VALUE ): 
case greater than equal 

PUP.PR0lT0fAL.PUR.PR0, », ^ MISSING.SHORT.VALUE ); 

case less than eauai 
PUR_PRD.f0TAL_PUR.PRD, « „ ^ M.SS.NG.SHORT.VALUE ,; 
25 case oeiwoen 

PUR_.PRD_TOTAL.PUR_PR 0 ( tf< total >« value && total «» revalue). MISSING.SHORT.VALUE ) 
aetauir 
rf ( purcnai »_ou sry ) 

r.»«no»r(PURCHASE.UNKNOWN.OP. ERROR. NO.STATUS. toUI_p U r_or 8 _,hort-); 



20 W -^ rfPR00UCT - UN -^-O^RR0R. N O_ STA TUS.^^^ 



) 



W tou«j)ur__pfo^»tfmorcnar *data cnar -.wen. string, mt str_»n. struo Usi.types list. 

* fX *r. < !*, < 0 - OP * faxor 0Der-!0f «um_«ems. struct bitmap -results map 
^ unsignee snon •map. strua bitmap *pur_pro_bitmap ) 

0 ^ murjmnmm (FUNC.NOT.AVAIL ERROR. NO.STATUS. Total Purct»seV*ooucl for a stnno is not mm*.-* 



wrt tOtti_pur^_mue0.itnngrcnar -cta,«. cnar •seeren.stnng. tit svjen. struct list types list 

enum fiew.operator operator, mt num.items. struo bitmap -results map 
j uns^oneo snort Tn»p. struct Onmap "pur^ord.bamap ) 

j " r0r - h * n0 *' (^C.NOT.AVAIL ERROR. NO.STATUS. Tof. Pun_™*P™__ tor . m«d ^ _ „« ^ 
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rtt touLpw^jsmnoiuniignM men •oma. enar « ttr.ton. m f»io_oft»t. tmja w type* -hit 

•rum fie io_ operator operator, ra ium_nsmi. struex txammp tmsuns map " 
^ tfuiprwo snort Tnap. strua bamap *puVj>ro_b<tmap ) ~ 

5 j •mr.rar (FUNC.NOT.AVAIL. ERROR. NO.STATUS. Total PurtrWProcuct ft* . fcuw «nng a no: ay***,.-,; 



« W. l _pur_p«.m««).f«nr W un. 9 ^o «k1 -daw. eh* Ww.atra* m «r_*n. „ ,„« *»., ttru<3 „, ^ 

•num f»w_oo.r»tor operator, mt num.iwni. strua onmao T.lu«" map " 
wiaipnao snen "map. (true) Bitmap "pur _pro_oamap ) 

• W - h,naW < F "NC_NOT.A VAIU ERROR NO.STATUS. Total PurwMo/Procua tor a mood taw atnno 
a not avauaoleO: « 

10 1 

W totaljur^w, rt -oau .r^KJ m v.iu.. un,^ „ mgh.va*.. «n«t taat.^p., •>* 

ftaio.eporator ooarater. m nun.aama. tnua Bitmap *rasuu map 
miionoa «non -m«p, itnja tmmip •pur_pra_pitm»o ) 

, (FUNC.NOT.AVAIL. ERROR. NO.STATUS. Total Pu^/Pa**, tor a bit a not -,; 

••arm aaeuen * aodaon to aaa.n 0 softwara nara toiZo^^^TJ^^^T 09 * W "* Mr,af " na 

onum field operator operator m nu>n . ^ ^ - ' **• 



20 



{ 

unsioned mt •oata^end; 

PUR_PRDVARS; 

UST_PREilMS: 



enum ^.operator operator. „ nur^emV 0^ 
una^neo snort -map, strua tmmap -pur _prd_b«map ) - ^ , 



swam ( operator ) 

{ 

case eaual: 
case noi_eoual: 
case eauaf_bst 
case noi_eoua,_kst 
25 case preater_tnan 

case iess_tnan 
case greater jnan_eouai 
case *eis_tnan_eou3i 
case between " 

default: 
ritumfO) 

r^.iobe^cLNmsurewrtmto^r^^nor^ 
3 Q foncountxO: map < map_end; map~) 

for (totai=0:oata « oau * Tnap ;cata~) 

iff ■pur_prc_bits & •pur_pro_map) 

( 

tOtaH-*; 

} 

NEXT_PUR PRD BIT; 

> ' : 

35 iff total « target) 

*rtuXts u Tesutts | -bits; 
count**; 

) 

^ NEXT.RESULT.BrT; 
nstumt count), 
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W J^Tm^T*^ " » returning vo«3 •/ 

J"-"""""! uns^c snort -data. un„oned mt v^TLL« 

•num f<eu operator operate/ ™ ZT'J?^*^ Rvalue, struct hst types n*st 
{ urwgneo snort -map. .true twtmap -pur _pro_oitmap , WW - mao ' 

/• Possible future expansion of funownabtv V\Aw>>~ 



! 5 r can. since tn» functionality a not „,„„.,„,„ . 

I ™ •"•»»• mm b^^^T^ .«» 

^^^tote future expansion of fu 

•num field operetor~«^~ .1 **** to,t - t W 1«t 
r Po **tote future expansion of funaionalitv iam— 

copied to here end try, data type rev^ *rwT^ • auB * ,u00ort ^ aoove N PUR P p n , AD ^ 
} Iyp * rvvisefl No current pians for this. •/ - ruH _ p RD_LARGE will be 

{ ""V™ ™ «rua bnmao W^^T"* 0 ""^--""P. 

r Po ***l» futtra ooanscn or functionality Wh> n 
^ copwa to nera ana tna oata type ra^o^^^T - *~ Wf-DjiW* * 

^ dan. since this funajm*^ 
£P0M*ia future e*Den».on of funetionatov v*.„ 
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r dan. smce this tuncuonahrv it not vnptemented. I am returning void V 

void n_pur_pfd_bi!( *tf "oata. urwonao nt vama. unsigned ra mgn_vawe. struet ttst_type$ Tat 

anum fieid^ooeretor ooarator. vtt num_«ems, struct tmmao Taiuw.map. 
^ unsigned snort *map, struct bitmap *purj>rd_brtmap ) 

5 r Possible future expansion of functcnaiity. Whan wa actually support ma. the aoove N_PUR_PRD LARGE will 
copied to here and ma data type revised. No current ptanstortna •/ 

} 



r 

2 PUR>RD_OUERY ROUTINE 



10 



int purj>ro_ouery_speaai ( strua oatasat -data, 

anum datatype field type. 

fieid^stzs. 
int fieW_of!set, 

anum fotd_oparator operator, 
umon search_item search, value, 
•num eaarcnvaiuejtem search' value type 
•hum pur^prd^o^ieryjype ouery~type. * 
15 { struct bitmap *results_bnmap) 

unsigned mt total_count » 0; 
int re1erence_count 
iht num_bitx; 
unsigned short ^pur _prd_map; 
struct bitmap •purjxd_bimap; 

if (Purcnase_ouery) 



20 



) 

eise 

{ 



pur_prd_map = ptrrOi_map. 
pur_pro_bamap = purOi_bitmap. 



pur_prd_map * prdOl_map. 
pur^pfo^oamap = prdOi_brtmap. 



2 5 num^bits = PurOi_bitmap-»numr^r_ofjjits. 

if ( Ouery_fype « a vg_pur_prd ) 

reference_count * 0 
if (Query Jype == totai_pur_proj 

referenee_couni = i 

switch (field jype) 

- n case dollars- 

J u case floatmg_point 

case iarge_mteger 

if <searcn_vaiue_rype == (ts! vatue) 
r we are toornng at a iat of vaiues •/ 

WtaLcount = CPur^rd.»a>ge. 5 peaa»| r eterenca.countJK 

oata-> items 
(unsigned mnO. 

3 5 (unsigneo mtJO. 

searcn_vaiue nst. 

operator. 

num^pits 

resuits_DTtmap. 

Pur_pro_mao 

pur_pra*prtmap ), 
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) 

else 

{ if (ooerttor==Derw»en) 

£ oata->nems 

*aarcn_va»ue between mteoer.> 10w 

operator, 
num_b«s. 
resuns_oitmap. 
pur_pro_map. 

•I*e pur_pro"D«mao ) 

cata-> items. 
*aarcri_vatue mieoer. 
(unsigned mt)0 
NULL. 

operator.. 

} f »«utts - bitmap, 
break: Pw_pro map 

case negative jtoat: *0>rtf bitmap ); 
Uearcn^vaiue_(ype == ust vaiua) 
r wa a/e »oomnD at a ust of vatues •/ 



tmal_count = Cpur^prd^iafQe^speaallreference^countJX 

oata->items. 

20 (mt)0. 

searcti_vaiue.ltst, 
operator, 
num_bits. 
resutts^ottmap. 

Pw_Pfc_map. 

J pur_pro bitmap ) 

eise 

25 { 

toU '-" Un ' = ( ^^-^-«P^W«« ecu*,,, 

oata->nems 



*earcn^vaiiie. between integer-***, 
«^va.ue.be^een> l e 9 er^ hl gn. 



num^bns, 

30 resuits^bitmap. 

Pwr_pro_map. 
Pur_PnTbitmap ) 

aata->«ems. 
aearcn^vaiue.nteQer 

|tm>o. ' 

NULL 

•a c operator. 

J s num.bits, 

*eiutt3_bamap, 
PuCprp^map. 
Pur-pro^bitmap y, 
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} 

faTMfc 

case yaar_fnonvc 
cm year_montn_oay: 

* <««a«n_vaiue_type « hst_vame) 
r v n tootang at a lot or values •/ 

tctai_count« (*Pur^rd w oatt_spaoal{rifafanca w count)K 



(unsigned ntX). 
(unsigneo *uK). 
•Mftn^vaiua.list 



num_Dds. 
mu&s.amnao. 

2 n PuCPre_map. 

j pur_pro_oamap ). 

•tea 

{ 

if (oporatorBxpttwMn) 
totai_count = {•puf_prd.aata_spaaal(ratefance_couniJ)( 

oau->rtems. 

••■n^_vaiue.Between_integef->*ow. 
seercn_vawe between mto9©r->nion 
15 NULL. 

operator 

num_onv 
resuns_pttmap. 
pur_pro_map. 
pur_pro_Dirmap ). 

etse 

tota^count = Cpuf^pro^aata^specjallfBfBrence.countDf 

oaia->nems. 

- n searen^vaiue integer. 

^ u (unsigned mtX). 

NULL 

operator. 

num_Dits. 

resuns_0ttmap. 

pur_pra_map. 

j pur_pro_oitmap ). 

Preen: 

_ case meOMjm^mieger 

D rf <*earcn_vaiue_tyDe == nsi_vaiue ) 

r we are toownp at a ust of vaiues */ 

{ 

rota^counta (*puf_pra^meoium_$peciaiifefefence_counij)( 

eata^nams, 
(unsigneo nt}0. 
(unsigned mt)0. 

ssarcn_vatue.iist. 
ooarator, 

3 0 num twu, 

resutts_prtmsp. 
pur_prG_map. 

j pur_pn3_prtmap ); 

else 

{ 

if (operarofwaoerwean) 
totai^count * (>r^^mednim_spec2al|r»f.f«noe^count|)( 
2 5 "oa»a-»«ams. 

■aaj u i.vaJua.befwaei i.nteoer-^ow. 

•••n^^vakw.oaiwaan'eitagaf^hjgri. 

NULL. 

ooarator, 
num_btu, 
resuns_oitmap, 
pur_pn3_map, 

ell€ pur_pro_ortmap ); 
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seeren^vaJue integer . 

5 (unsigneo mt)Q, 

NULL 
operator. 

reimts^oitmap. 
pur_pra_map. 

j pur_pra_pitmap ). 

break; 
ease character 
^ q case «maii_»weger 

if ( searcn_ value_type bs Ust_value) 
r we are looking at a test of vaiues •/ 
{ 

toULcount « (•pur^^«f»^ipe<^t(rBfef»fK»^coijnt))( 

aate->itemv 
(unsipneo mt)0. 
(unsigned nt)0. 
search vatue.ust 

15 



num_oits. 
results_Oitmap. 
pur _prc - maD 

} PUT^prtToitmap ). 

else 

{ 

rf (Doerator==oetween) 
totai_count * CPur^pro.snon^$peciaJ|relerence.countJ)( 
^ 0 Oata*>«ems. 



searen_vatue between_mteper->iow. 
searcn_vaiue Detween^mteoer->niQn 
NULL ~ V> 



operator. ■ 
num^Orts 
resuns^oitmap. 
pur_pro_map 

©i 5e Pur_pra_Dttmap ) 

2r M»._PDum- {'Puf^ro^shon^soec«l|reterer>ce^count])( 

oaia->items 

searcn^vaiua integer. 

(unsigned mi )0. 

NULL 

operator. 

num_piu. 

resuns_Ditmap. 

) pur_pro map, 

30 ease faed_„nn B P^_pra.D«ma P ). 



J , ".a f . IO o,„ 9a „ alo( -^) 



rf ( S ^l a, l!:. m ." ea ,tfm 9* or no, v 



{ - _»Tingj( searcn_vaiue (l4t } ( 

f maeg strings case •/ 
3 5 ««al count n iw _ 

jstnna.^,^ 
••arcn.va^ - WM 

»arcn_vaiuo.„nno-«nna:.enotn. 



fi6W_offiei. 
s»aren_ vaiua »$t 
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operator, 

rtum Oils 

resuits_bitmap. 

pur_orc_fnao. 

. ' our_pra_oitmap ). 

3 else 

{ 

r stnngs witnout ? or • wiiocaro enaraaers 7 

total_count* (■pur^rc_tstnng_sp«aaljreferenca countlM 
data-xiemi. - ,n 

searcn_vaiue.strrto->strrng_ value. 
searai_vaiue.stnno->itnngjengtn ( 

10 operator, Ma^n.vaiua.tet. 

resuits_b.tmap. num_brts. 

pur_prd_map. 

j pur_Drc_bitmap ); 

) 

eisa 



15 



20 



if (((xtrcnr<iea^vaiu«.fmng.>stnng_vatue.^))= s NULL) && 
((strcnr<»earcn_vawB strmg.»3trmg vaiue °~))ssNULL)) 

searen_vaiua.jtnno->itnng_ value. 
saarcn_vaiue.ttnno->string2»«ngtn. 

field_offset. 
operator. NULL. 

rasutts_onmap. n ufn_brts, 

pur_prd_map. 

else Pur_pno_brtroap ). 

•earcn_vaiue itnng->jtnng. value 
•wcn.va«ua.strtrio.>stnnLienptn i 

f»e»d_offset. 

25 operator. NULL. 

resutu_b«map. num^bns. 

pur^prd^map. 

tx^. ' Pwr^pro^prtmap ) 

case stnnp^typa; 

. — rf(searcn_vatue^type « fast value) 

-30 ^weareiooiung ax a list of values'/ 

f* see if any m wed stnnys or not •/ 
* ( cnecK.hstjor.m a eo.,tnn gs( searcn.value.hsi ) , 
r mixed strings case 7 

•earon_vaiue.strmg->$tnng_value 
3 5 »*^.vaiue.stririg-> t tnn flL ienotri. 

operator. ••*rcn_vaiue.hst. 

resufts_bitmap. num^bits, 

Pur_pro_map. 
Pur_pro_bnmap ). 
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> 

•ftM 

{ 

r strings without ? or • wildcard characters V 
total_count = {^jro_strvig_specai|retererica_count]K 

data-* items. 

s«an^_vaiue.stnng->stnng_v3lue. 
c searcn_vaiue.stnrig^simg_iengtn. 

seareh_vaiue list 

operator. 

num_ons. 

resutts_b«map 

pur_pro_maD 
pur - prc_Ortmao ). 

} 

) 

else 

10 { 

if {(( strcrul seareh_value. strmo->sinng_vaJue NULL) 
(<strtft«searo)_vaiue.strino->stnng_vaiue.'*))=sNULL)) 
totai_ count = {•pur^rd - strmo^spec«l|reterence^count|)( 

oata*>nems. 

searen_vaiue strmg->stnng_vatue. 
saaren vaiue stnng->stnng_ length. 
NULL." 



n ^ num_Drts. 

~ ^ resutts_OitmaD. 

pur^projnap, 

pur_prc Drtmap ) 
else TO 

total_count « (•pir_pn3_muieo_strmg_speaa1referonce_count)}( 

cata->items. 

searcn_vatue stnng->strmg_ vaiue, 
searcn vaiue stnng-> string length. 
NULL. 

2 o operator. 

num_ons 
resuns_Dnmap. 
pur^^prd^roap. 
pur_pro_Ditmao ). 

break; 
case btt_type: 

rf f searcn_ value _tyoe == its t_ vaiue) 
r we are lookmg at a list of values V 
25 < 

total, count = rpur^d_brt_speDal|referenee_eount))( 

oata->items. 
(unsigned mt)0. 
( unsrgned mt)0. 
search_vaiue list. 



num_bns. 
resutu_bamap. 

3 r\ pur^prd^map. 

j pur^pro^bitmap ); 

else 

{ 

total_count = (*pur _j>m_brt_speaa*[reterence_count])( 

data-»items. 
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} 

> 

break: 

case bad_ datatype: 
default breax; 
) r end of switch */ 

rettxn(totai_count); 



(unsigned rtf)0. 
< unsigned rrt>0. 
NULL 



num_bit$. 
resu«s_bitmao. 
pur^pro^map. 
pyr_prd_ 0 rtm ao ). 



15 



20 



^3 



Not Ming us oo 

V 

void pur_prd_Query 



{ 



enum pur^_oueryjype ouen/jype. 
»tAxa bitmap fesuns_bitmap) 



unsigned mt total_count » 0. temp; 
•true Drtrnap 'query_bnmap; 

if (puTcnase_ouefy && (masier_purcnase_bitmap mm NULL) 
^ (qucry^typo r 3 puT_prc_oomiS)) 

MUtr OEBUG * « a ™AP-NOT_CREATE. ERROR. NO.STATUS. purcn. M ump n w^,^. 

lpnntt(0«6ua_fil#, T4l\l%iU*tftt%»\n* "PUR PRO r»RDwe M „« 

JJSSr «W-r. ^..r^*, 

f (copy.o.tmaosiouefy.e.tmao resulu Dam»| MNULL , 
error_n 3 noiBf rSITMAP NOT COPY PRnno 



I 



total.coum * (^^m.seiectleKjeryjypelH 



Query_bftmep, 

3 0 P«0i jwmap, 

end. 

) results bitmap J 



• if fprodua.ouery && lma„arj,rooua_b!tmap == NULL) 44 
^ louwy.iype •» puf_pro^ooma«n)) L) " 



if ((Ouery^brtmap r create Qwwi^bitmapcramitt bnmap^number of b«s» «,«..,., 
error nandier (BFTMAP not roc An m^ICT - - M " NULL 

^ — -^O.OUERV-. -RESUtTS.BnVAP, bam ,, ^ , 

W. ™_PR D _ QUERY , . ESULTS _ BITMAp . >STARr _ 

^m^m «*r. -pur.prd.ouerv. touit. jm*P-wr. ^.o^p.^. ' 

•endrf 
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^^r«l T ^ P - N °" T - C0PY - E ««°« « STATUS. 
-r«suns_oitm«) to ouaryjwmap „ pur^^,^ 

tor ( temp»rasutts_bftmap->Kan: tamper,,^ hjtm ,^._ . 

tamp * 0: •*»w_Ditmap.>end. temp** ) 

lO»J_count = (•pur - jjrd_saiaa|quafy w typ t j )( 



10 . 



«t eombim>_pur jwu_brtmab ( 



bitmap •pur^rt.bimiap. 
bitmap •n«x!_pur_pfd_bftmap, 



15 { 



) 

unaipied rn totai_couni « 0; 

teial.counic Cpur^rd.aa4a«(ouafy^iypa))( 



•tact bitmap "rvauas.Mnap 



20 



LbtonapjDur^pffl^bamap); 

l.bnmap = NULL 

L«>ttmap<naxt^ur - paj - bamap); 
**xtjur m prtjb<tmap » NULL: 

wtum(toa^cDunt); 



ouery^bnmao. 
p«J0i_bitmap. 
and. 

results^ bitmap ). 



pur _prd_bitmap . 

next_pur_pro_bttmap. 
ooar 

fB*ufts_bitmap ). 



25 

•trua Mm tp • Nflw.^ < itlua c^ao . „ 2 

{ nmw. urwqnM inert «m«p unwgw „ numoer of item, ) 

«ta«a bipn«o • r»ouc»d_tHtm«o. 
uniipiiao snort *sotr. map count 

^vma « i. j. iLtoB.. ^j^. i _ fwJuBM tt fMllsw) , ^ r-aueBtf 

35 W«map; 



m 



Jw ( Hk i « nuno.r_of ««**: t«r~ ) 
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preae racoras lor ma pumase ana t any bos are ml sets the to 

targe bitmap, ff no Ms for tms purchase are set ma mm ton* 
ms roouead bomap a left off •/ F 

map_ count e •sotr 

far (TO; f«rnap_coum; ) 

{ 

* C "b»Llarga & FLlarpe ) 

{ 

IwLfeduced |» iLredueed; 



) 

iff-WtJarpe) 



1Q ^larpe«cr t ; 

/ 



else 

{ 



) 



DtMarge**: 

hkjargs • BFTMAPJNTEGER SIZE; 
jLtaroe'1. 



.) 

*w ( : j<map_count; ) 
15 « 

jf(-WcJarge) 
{ 



) 

else 

{ 



20 } 



jijargeccs 1; 



bn_large** 

>*_iarge = BITMAP^ INTEGER SIZE 
iLM^oe*!. 



) 

* ( -Unreduced ) 

{ 

jj_recucao ««= 1 

} 

eise 

{ 

brt^reoueeo-**, 

25 Wi.raoucao = BITMAP_INTEGER SIZE 

iL ra ouceo « i • 

) 



roium(reouced_brtmap); 



«** wm,p • --.^jrfl. mmp , ,<rua D«ma 0 • t»«m an 2. un.^neo ,non -map. un,^ „ numo.r.oWem, , 

struct Dftmap • exoiooe Ortmap 
30 W0r»o snort *sotr. nip count; 

unsigned rt tota^oounx 

total_count « oeunt_»et_bits(bitmap2); 

r this is the resultant bitmap of sae either pur or pro •/ 

if ((•xptoos.twtmso ■ er««e_generai_bitmao ( number of itams )) «« NULLS 

error nanoiar (BITMAP NOT CREATE ERROR un mTi.c ^ 

35 " bitrnao>-) : ' - ' EHROR ' N0 - STATUS - *«Ptooe.b«map r> «expiooe_pur _prd 

•rfdef DEBUG 

fpnrmtoeougjito. -%s\l%s\t%*l%s\n- "EXPLODE BITUap- -eve. ^ 

•"■j-Jf* -."HMMBwr. wwOnwr TOODtWwr.™. .J^,^ 
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num.bw • bnmi^^numtw of bar 
•Ptr ■ map; ' 

^taSV* "-• xptoo " 3 = BITMAP INTEGER SIZE; 
biLiarp. * bitmao2*»stan: 
b/L.xptoooo • exproo«_oitmax>->start; 

5 

|w ( i=0; k num^brts; i— , sptr^ ) 

Product reooros tor m,s purer*,. ano if any on. JH«u2^ Ttrl IT 
« th. rwunant Prtmap. tnen continu.. twnpra oalt m«TJ^ 
■■to. bitmap. If no bos for tms mmnm^S ET.I!!L? *** " 
th# txprooea bitmap » left off. « th. procar on r> 

n n wip.count = *sotr 

for ( po. f<map_coum; ;~ ) 

if ( •bn.iaro. & HJarg* } 

{ 

tHt^exoteood |= U-Bxpioood. 

if ( ©xpioaed ) 
{ 



15 ) 

sis. 

{ 



} 



) 



ILoxpiooeo «c 1; 



kX_ex D »oaea = BITMAP INTEGER SIZE. 
U_ejcp]oaec = 1. " * 



20 for { ; j<map count. i** j 

{ 

if ( -W<_eaoiod.d > 
( 



) 

.Is. 

{ 



brt_expiooeo** 

25 »«_expiooeo r BITMAPjNTEGER SIZE 

^exoiooeo = : 



} 



if { -*X_tarpe , 
( 

) 

30 

{ 

bit_iarge<»* 

kk_l.ro. = BITMAP INTEGER SIZ C 

> 1 



35 



totai_ count s count_se!_bits<a*piooe bitmap) 
^ 'etumi.xptooe_bitmap). 
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Appendix C for U.S. Patent Application 

DATABASE LINK SYSTEM 
15 BACKGROUND OF THE INVENTION 

Filed October 22, 1993 
Appendix C: Set of Routines to Handle Distributi 



4Z> 



30 



35 



ions 
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2 MODULE: DISTRIBUTIONS 
5 ^ MODULE DESCRIPTION: 

2 Satotroutnestohano^aanbutwrtt. 

- AUTHORS: 

2 Sushi! Piliai Digital Equipment Corporation 

10 Z CREAT,0N DATE: 2Meptambor.1992 
" DESIGN ISSUES: 

just SUCCESS or FAILURE 



15 



20 



PORTABlLrTY ISSUES: 
Nona 

MODIFICATION HISTORY 
2&-$aDtamoaM992 -OngmaJ 



" 10 **** ••Quant* lists. 
O^OaooaMTO . to handle frequencies.. 

SS^* 2 ^hanomopsstaos. 
13-May-1993 . Chanas Matmsxog 

*«ep-1993 . Ghana, Milmu^***" 0 " *" tei '- antf - Mr anurjhanoiaro calls 

- Upoata arror.hanaiaro cam to mduoa ERROR message type 



- INCLUDE FILES 
•/ 

25 

•nctuoe «stdio.h> 
#mciuae <stdiip.h> 
•include « string. n> 
•mauoe <math.n> 
•tncmoe <fi»e.h> 
•include <oescnp n> 
»mctuoe «ermo.r» 

•include Toc_protoiype- 
3 0 rtnaude tcc^^oem" 
•include 1de_amq_types" 
•inciuae lac~macro_oetrr 
•mciude Idc^enor^numoarsh" 

•define NUMBER_OF CROSSTABS 2 

•define LOW_ VALUE 0 

•defme HIGH* VALUE 9990g 

•oafine LESS>HAN VALUE * ^ 

3 5 » 0eftr » GREATER JTHAN_VALUE -200 

r UNDERLINE has 32 - oasn eharaaers •/ 
•oafme UNDERLINE " - , 



•100 
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cnar •get_strmg(); 

T Lookup table generation value 7 

mt iooKtfp_counr=0. 

tnt create_tabie ■ FALSE: 

mt create_x_tabie = FALSE. 

mt qre ate - y_iaoi« = FALSE. 

mt create_z~taoie = FALSE. 

mt max_row_vaiu»_counr = 0. 
mt max_cot.vatue_count = 0: 
mt majt_pag«_vanje_couni * 0. 

mt x_axis_lengtn « 0; 
mt y_axis_lengtn * 0; 
mt z_axis_iengtn « 0. 

* 

r DMO soecrfic external Declarations 7 

extern mt DMO_CONNECTED; 

extern mt msg_offse!: 

extern cnar ^sgIput_butferfMAX_BUFFERSj. 

extern cnar msgJtfe^bufferfFlLEjBUFFER LENGTHJ. 

extern snort pams _put_msQ_type7 

T External declarations 7 

extern struct bitmap •suosioiary^bitmapfSUB FILE MAX) 

extern struct bitmap •purOt^Ditmap. 

extern unsigned snon •purOl~map; 

extern unsigned mt " pur01_map_count; 

extern struct bitmap •prdOi_bitmao. 

extern unsigned snort 'prdDt^map. 

extern unsigned mt ~ prd01_map_count: 

extern struct bitmap •universe bitmap- 

extern struct bitmap -mesier.Mmap: 

extern struct bitmap •*uoef_master_b«map. 



extern mt 



purcnase.ouefy: 



extern mt prooua_owery; 
extern struct bitmap •mester_purcnase_bitmao i 
extern struct bitmap 7naster_prooua_bftmap. 



extern cnar 



*ouefy_*eyoooe. 



extern cnar % ouery laoei. 

extern cnar oueryj»ienamefl6I. 

extern struct faed^strmg^type f ued_fteW!MJM_ FIXE D_ STRINGS l. 
extern mt maj_numD©f_of_Drts. 
extern m brt_counu{256). ~ 

3 Q r count of e customer brtmap */ 

extern unsigned nt master_count. 

r for purcnase or orodua ouenes. total count can be greater man master count •/ 
r however, for subsidiaries queries, tne total count can be smaller tnan tne 7 
r master count 

r Example. A distribution for purcnasa field, with a customer Query, will re sun •/ 
r m total values m the distnouton oetng more tnan tne master count 7 
r Or tor e suoseiary field, wttn a customer query, can result m tne 7 
r total values m tne distnouton tess tnan tne master count Hence it 7 
3 5 r a oesirapie to use a Qistnoutxjn count to capture tnat value 7 

unsigned mt domttutjonjotai_coum«0; 

extern unsigned mt reset^ segmentation; 
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7 

mm FILE •aaougjiit; 



r VanaMe oeaamtiont for NONE ess. « X2. X3 distnDutoon •/ 

nt curTant_po»*0: 

•num crution_iypt f nm, roan ); 

struct lookup > vaunt 

{ 

teokup.nox; 
cnar "lookup.ttnng; 
struct looiuip vatuas 

): 



struct tookup.valuas nookup.buffer. lookup^vai.uil. 
T Vamots osctarsuons 7 

struct toomjp^uo*_to» L type nookuc tab*.Nut i - 

^jookup.uoi.^ nookupjao^^N^t 

struct teokup.tawe.type -table taii-NULL 
strua toowip.taftlt.typ. lampItart.NUU, 

S^^UCX VBtuO* OQO0 *Xfl0^ * ' * 

nt disoinr SBmnl . „ " va,ue - bam «P): 
*~^- a «mple_diitntoutionrtii» ,„, 

ttrua aistnouiion tvw> 1. 1" . loo « UB _t>«*»i.i«We. fwtc type j 
void fr»e_Oistnt)uoon_type < omr v«r 1 

«a»W»y '.Mmple.cnt.aatntw ontf* »,,„ 

nt «ww_lift_field_datntKrtwo(); 
nt wnte^fieid^distnbutionO' 



30 
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r 

Not bemo mvofcad by tne window s program. 

£™ ^r" 1 ^ * ^y.^W.Cistnouuon. It produces a datnomion of a «*» fit* 
Tha oatnouuon a bum using • otree and nance tne resuns coma sonaa 
Not currant bang uuo by tha 



struct caW** ^'^^^-^nbcit^ 
anum oatajype fold type; 

unsigned ait f»tt_»engtn; 

rt f.offset 
struct bitmap Nakje_bitmap, 



unsionad mt U.J. Wt: 
xu unsionad long •teng L «am: 

rt TftfU«_nefc_mjeger m>m; 

unsignadint Tarpejnteger_eem ; 
unsionad snort 7r»edium_mtegef_nem; 
unsigned char •small^mteger nam; 
unsionad tit "OH jtem; 
unsionad ml temp_counter, 
float "Ttoatmg[_«am; 
ooubto •doubie_item: 
15 cnar •«nno w vaftie; * 

°™ •stnng^ptr. 
unsionad mt num_bits; 

struct buckat_nooe *root_node = NULL 

«trmg_value * maKocffield lengtn+i) 
CH ECK_AUOf^TlON<sw L ^ 

2 q temp_counter * value_brtma>>start; 

Z^T^ D ° m t0 ■ ctual nufnbw 01 wms w « « aealmg witn 7 
num_bits = aa».>number_of_rtems. 

swrtch(fiefd typa) 
{ 

case Cottars 
case floating-point 
case iarge_tnteper 
25 r P^wsas tne value for large integer nem 7 

PROCESS.BlT.TABLS.PARTiK iarge>eger item, unsigned mt • ) 

r sat, me oo™ for ,ne™!^ 

PROCESS.BlT.TABLE.PART^f large, .neger.rtem, BrTMAPjNTEGER.SrZE. 1 ); 
case negative^ float 
r processes ine value for large neg integer nem •/ 
PROCESS_BIT_TABlE_PART_i( iarge_neg_mieger « m rtf) 

3 0 r ,.« me Dcmer for ,ne™ « e^7' Be - n ^- ,n,e99 -"^ *™-™'»«JyP«. .MLMM: 

PROCESS.B.T.TABLE„PART.2( •.r 9 e_ne 9 _ lrl ,eo.r_ I ,.m. BITMAP_INTEGER_SI2E. 1 ,. 

case year_month 
case vear_monm_oay 
case medium mteger 

PROCESsIeiT.TABLE.PART.K n, M «m_ m .eoer «. m . un „gneo snort •) 
PR0CESS.BIT_TABLE_PART_2( meonjm_,nteger_iiem. BITNWP_lNTEGER_sl^T) 



35 



Weak, 
caseenaraaer 
case smaii_inieger 
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PROCESS.BITTABLE *ART_i< mnjnm^^nmn uns^neo en.- • , 

PROCESS BIT TABLE '^^^"J^-™-^-™ f^tyoe fief0 Mn9m} 
bniiK wnjn.w^f^em. BrTMAPjNTEGERjsiZE. 1 )" 

5 case ttrmg jyoe 

PROCESS_BrTTABLE^PARTj( stnngjstr. uftstgnao cnar • ): 

•tmcpyrstnnQ^vaiue.itfTng^pv.r^w >enpth) 
itrmg_vaiueffie«_»engtn] = \y : 

PROCESS Rrr tad, e ^•"- 6 ^««n fi 9.va tt j0 -Aroot.nooe.field^tyoe.fieto^iengm); 
break; " * ART - 2 < *tnnQ_ptr. BrTMAP^INTEGER^SlZETiald^iingtn. 



&Liypr 

PROCESS.BrT.TABLE.PART^1( w.nem. unsigned mt • ); 

1 0 PROCESS err tari p ^"-^^.«w*il).Aw.nooe.fitid.iypt .f»td fcngmi 
bn»»< - M -W"i. SITMAPJNTEGER.SIZE. 1 ); " 

f«ed itnng: 

p ROCESS_BrT_TABLE_PART_1( m*aium_im*g«r_nefn. unsigned short * )• 

stnnp ftenj_lengtn ), - ' 

«nno_v«iue|fieia tongm] = r^r 

^CESS.BrT^LE^ 

t>ree*. " LC - KART - 2 < ™o<um_mteper_«em. B(TMAP_|NTEGER_SIZE, 1 ). 



15 



2C 



} 

ttrmg_ value ); 
stn *g_ vatue - NULL. 

'aiumfroot^nooe); 

} 



25 



W« being rtvonec bv tn* Mrt nn 
{ f*W.entry ^ 



tit 

•true «Mress.f.^e fetWr 



«*QJxiffefTl3Z]: 



i fia*o_off»et«0; 
3 0 * ^Mter^oDunt « 0 ) 

Mm m *ft-««>L«»«r(niHLbufl«f); 

3 j »w«>(succgss): 
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T map section file V 

status = OpenMapf ite(f»elo->tat>le, Toobar.sec" fiek^fietd_name. &chan, 

*WMr. ftekMvon, fieto->numoer of blocks): 
if (a_errorf status)) 

5 error_nandler <MAP_OPEN_ERR. ERROR status, ^isptayJ^_castnbution , 7; 

r set start address of data points •/ 
fieW->oata->rtems = retaor. start; 

if (fielo^>fieW_type « fnced_stnng) 

field_offset = get J»ed_stmo_oftset(field^f*eld_riaroe); 

r search for value distribution •/ 

distnoutjon = oetermine_vaiue_distnbution(rield->data, fieW->fieW_type, 
1 0 fieW->f»eid_end. field_offset. roasterjwmap); 

r prmt value distribution 7 

Duffer = malJoc(STR_BUFFER_LENGTH); 

CHECK^ALLOCATIONfbufferr^buflerRoutme display field dtstributJon(n 
spnnWbuffer. 'Valuo distribution for %s:\n".fiald->fwtd"name) 
msflLbuf^xfer < buffer ); ~ 



15 



freef buffer ); 
buffer = NULL. 

ff (distribution »- NULL) 
{ 

r prmt_buckei jree will free the value nodes as prints are completed 7 
pnnt_buc3(et_tree(oistnbuiion.fieid>>fieid_type. 

field->field_precision, field->field_end); 

else 

{ 

2 q sortntffbuffer. "No values found for this distnbution. please try another query wy 

msg_buf_xf er ( buffer ); 11 
pnntjext bufs( ); 

> 

r unmap seaion file 7 

status = UnmapCtoseFite(chan. Aretadr); 

if (*_error(status)) 

enor_nano»er <UNMAP_CLOSE_ERR, ERROR, status. "dispiayjietojjistnbutionn: 
retum(SUCCESS); 

) 



r 

Thtt routns buxids the hnk*d ksi based on trw um erarws. 

7 

taed_tooiujp_datarrDot_nooe.t«U_no^ 
strud bst_vaJua_nooa -root_noos; 
3 0 *vuol vaue_nod« ■■uul^node: 

unsigned ^ fieki^nunibec 
aw ' "buffer, 

enum oatejype f»a_type; 
■it fields rtityUi. 

rtt m«i_tieq; 
nt max_freq: 

{ 

struct taotajp_tabie_type lemp ja We ■ NULL 
ens/ nemp_cnar. 
mr Trwd buffer « NULL: 
35 enar aetontter»LOOKUP DELIMITER; 

low.eatarOATE.STRING.LENGTMJ. high^oatetDATE^STRING.LENGTH]; 
higr7_enar. io*_char. 
nt twnp_iai iQtfu 
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iemp_ table = (struct tookuo table tvna n maih-v- /. „„ 

•endif ~ 
temp_tabie->next = NUJJ^ 



mod_buffer = buffer: 
switch(fietd type) 



case charaaec 
temp_tap»e.>vaiue = get.stnngf&mod.buffer. delimiter); 
lemp_cnar = get_string(&moe_butter. Delimiter) 
temp jabie-> low = temp cnar; 
free(temp_cnar); 

temp^cnar = get_stnng(&mod_buffer. Delimiter) 
tempjawe->mgn s temp cnar, 
freeftemp_cnar); 
temp_cnar = NULL: 

temp_tabie->totaisO. 
break; 

case brt_type: 
case smalUntegen 
case fwed_strmg: 
case mediurnjnteger 
ease large_inleger: 
case dollars : 
case negatrve_f)oat 
case floating-point 

J^Mf' B * >V31Ue = ^L$tnng(&moo.butfer delimiter) 
emp_cnar = geLstnngi&moa.Duffer. oei.miter) 
tempjab»e->iow = atoi(temp cnar). 
freeuemp_cnar). 

temp_cnar = ge L str,ngf&moc_bufter. Delimiter) 
iempjabie->h.gn * atoi(temp cnar) 
free(iemp_cnar), 
temp_cnar = NULL. 

temp_taDie->totai=0. 
break: 

case year^montn 

case year_montn_oay 
tempjabie->vaiue = ge L stnng(Amod butler, delimiter) 
temo.cnar = gei_stnng(&moo buffer Delimiter) 
temp_tab»e->iow = aatejo_number<temp cnar) 
rree(temp_cnar); ~ 

temp_cnar = get_str.ng(&mod buffer, delimiter) 
tempjab>e->high = oaiejo numoer(temp chart 
freenemp_char). ~ - ,m 

»emp_cnar = NULL. 

temp_taoie->totai=0. 
break: 

case strmg^type. 

** >V3,Ue = SeLstnngf&mod.buffer. delimiter)- 
temp_cnar = get_strmg(&mod_buff er. delimiter)' 
tempjable->iow * atoi(temp cnar) 
free(temp_cftar); 

temp_char = get_strmg(Amod buffer, delimiter)- 
tempjable->high = atoi(temp char)- 
free(temp^cnar); 
temp_cha7 = NULL: 

temp_tabie->totat=0: 
break: 
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} 



case t>ad_aata type - ~> - 

break; ^ Jm *° 



r oexannrne lengtn of me field value V 
lemp_iengtn = stnen(tem D tabie->vaiuei 
if <*_axis_tengtn < temp_»eng:n) 

x_ajt»_ lengtn" = , amo len m . 
rf(iooKup^ a bie_nea 0scNfUU) " ' 

- «w_iaii - temp_tae w 



} 

{ 



10 ) 
r 



lookup, table ta.t->na« = , 



This rouine builds the toofcuo table (Inked list) for m o,.^ 

toeofied. rf a table name is soootied tne emnes at^^T^' " nams «»ename> or NONE can be 
•/ ^ --^.^^^b^oftnetab^e oy^ l ^ ,, ; ft^?^ " 

wild bsi_value_node -root nooe * 0 - lype ' f,aW - ,en ^ n m ^ fr *q .maxjreq. reterence_count) 
«ruct vawe^nooe -lart " 



void 

"value 

unsigned «t field number 

char " 
cnar 1able_name 
. 1ield_name. 

teldliyoe 

TC f*W_iengtn: 
rt mm_freq; 

rtt majt_freq. 

2Q { refefence_couni 

FILE ■ - 



«rua tookup_tabiejype nempjabie. 

^ burtertMAXCHARSl. 

nt •moo.outtar=NULL. temo_stnng«NULL. f.iej^NULL 

cnar ^ 1 ^ n »9".pn>eaion.crfterencesio 

^mp table name 
ertum Pur_pro,type query" mooe" 

•num pur_pro_query^|ype query" type. 



25 

moo_buffer = tabie_name. 



if (tab)e_name NULL) 
rerumfO). 

else 

{ 



temp_tab»e_neme = stnouooeraaoie name) 

rf rstmcmpctemp.taoie.name. "LOOKUP.DIR NONE OAT.-. 20) == 0) 

3 0 create^ table = TRUE. 

ma*_coum * MAX_DIST COUNT 
return; 1) 

) 

free<temo_table_name). 
^ temp_taoie_name = NULL; 

r 

raiuo* nowever. tms functionality is not being usee. 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



126 



PCT/US94/12074 



if ((fiie,pg»ggeftfftaD*e_n«mt. v)> * NULL) 

iemp_slnng « 9*L«nngf«\mod buffer 
«anf <temp_«nng. tow"), 
fr»«fiemp_stnng); 
5 ttmp_«mng c NULL 

Mcsnf (mod.ftuffer. "%tf*. &titgr\), 
if ((intKnign/diflerence) <« 1) 
difference « 1; 

if «pro?eOion«(ntKhiQn/dif»Brence)) **0) 
projection** 

for (f*«w:Kpr^«aion;H^) 

{ 

sonnttbuffer. "%d tow.ipw.fio^diff^^.,,. 
x 0 ^ fl -*^- M »<™Lnoae.ta, L n^ 

tow «- <dif»erence*i v fie^type.fwta.^n^n.m^trcQ.m^freq). 

} 

) 

•He 

{ 

r * » «»»e name was SDccrf.es •/ 
if ((n = fooenfUDie^nama. -r)) is NULL) 

15 p 1 * ^WOuffer. MAXCHARS. ff) NULL) 

^ioo«xp_oatairoo L nooe.ta,LnooeT^num^ ^ 
j fl *te_fen^,minjreQ.majt treqj 

) 

else 

{ 

, • fW ^^^E.NOT.OPEN. ERROR. NONSTATUS, taP, B _name,. 
20 rf (taosefff) EOF) 

} (F.LE.NOT.CLOSE ERROR NO.STATUS. ,»,._„,„,., 

/•tne OTHER case V 
if (*_ajcis_iengtn « 5) 

*_t»s_iengtn r 5 

r tor tne OTHER case •/ 

•ifflefOBG J Koutme »oao_ioo*uo_intorTnation temp taoie~) 

J™^-''^»™»«*«"W 10AD.tOOKUP JN PORMAT,D N - "TEMP TABLE" ,. m 

MM OBG - ^-"^.^.rt^nM,*, u^»v« oe1 

3 ° TS*' ^AD. t OOKOP., N POR«AT,0 N -. -rEMP.TABtE-.VA.UE-. H^p.^ 

eendif 

«mcpyftemp_tab*e->vaiue "OTHER- «i » c , 

fnpjM*****^) « £; ^ ,H£R • 5 > ^ *ngm of teat OTHER •/ 

••fnp.ttDie-How • LOW VALUE 
■*np_tat>ie->high » HIGH VALUE 
t*fftp_t*D»e-»totat « Q; 

r apoend OTHER to tne fast •/ 
3 5 teomjp_tawe - taiU>nesi • temp tab* 
tookupjaoiejati « temp ta2Mt * 
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^^Po^""*^ tw^*wwiQ or Mid* this touuno wrfl tfMisijy gtojmo tho soucurv sno vtsn 

met ssi_vaJue_nooe Toot_nooe; 
•Suet va*je_nooe Hail_riooe; 

cr " r ~ •field.nama; 

5 unsigned «t fie)d_numDef: 

•searw value; 
enum oate.type fiekJjySe: 

struct tooteup_t»Ott_typt tafl; 
{ 

struct toc*up_table jype lemp_taWe « NULL, "temp _ptn 

c» «trrifl_vaifF!£LO_NAM£ LENGTH] 

rt fiaW^oftsetT 
t ri fned_rteger, 
- 1 u fc»t floaLnum: 

lan; 

>ac_var: 

rt «Mip_tengm; 

memsetfstnng^val. 0. FfELD_NAM£_LENGTW): 
tamp^uDia = (struct Iookud tafile rype ') maiioc rsnnofr ... „ 



15 



twntf(oeDug.f,ie. -W*slf«tflW. TREATE LOOKUP TABLE" TEMP Tab, p- 
tempjawe->ne* « NULL' 



•rfdef DBG 



swncfiffield type) 
< 

casa sm a integer 

tat>^>vatue-). p - ia ^ > Y»*e.-Rou.ine create_loc*up_ta«e: iemp_ 

tprmtf(oeoug_fiie. "%s\t%sU%tftt%svi- "CREATE mn*iiD T . B1 , 
•*aUoc«* 1; ' XREATE -^0»<UP.TABLE- TEMP.TABLE-VALUE-, temp_,ab,e->vau,e 

aanoif 

strcpy(temp_tatte->veiue. stnno van 
braa* 

25 case character 

temp_taweo>iow « iernp_taweo>r,rg* e (unsigned enar •) saaroi vah* 
tempjao*e->tota.= 1. ; value. 

spmnistnno.vai -Ac" (unsrgrted enar •> searcn value) 

•ifoef DBG «o»->¥aiuen. 

fpnnmi>eoua_file. -%sU%»v.%cV%iv.-. "CREATE lookup tao. = 

30 -««? taU0 ~ n - ^^TE.LOOKUP.TABLE-. TEMP_TABLE->VALUE*. l^p.t^.^. 

«t«Wt.mp_«aw^, vaiue , tnn9 _ v „ ) 

case year_montn 
case year_momn_oayr 

temp_ia&ie->iow * temo tA&t*.>M_» . , 

temp_tao.e-»totai = i * ^ h l««V»a snort •) s.srcn vaJue 

35 WW0S6 -■—~T. P - l>D ^" , *^ 0 ^«»».«oo.« J p.l»*..«„p 

JPS^*. — — r. ^OOK^, TEMP_TA8Lf .*VAIU£* 

case fueo_stnng 
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5 WdefOBG JW-tvmm*) - lMOi ^^^ouunm awmjaHupjaom: tern; 

'TSV" 8 ' ^' U *<**'^ -C«EATE_ L OOKUP TABLE" "TEMP TABIC 

CHECK_ALLOCAT.ONd.mp i^^-i^ GT ^') 
MMfDBC «««->vw U e^ ~ V * tt " 1 ' ouw '»cr. TO _ loohup _ ttB(e: , emp 

lamp^f abt<» >|pu> at tarn 

2 ° MnaT 4 *^' ^ tt% ^-- ^TE.LOOKUP.TABLE-. "TEMP_TABLE->VALUE". 

2d *P"nfl|itnnn va) ^7-. fiM( , OTC - V11 

CHECK.ALLO W T,o::r e F S^-4 ENGTH -'' 
Meet DBG iat>»->v*ue-) " 7*oui,ne cr.., e _ « 0Wj p_, aWa |emp 

■MmomO. • TREATE -»-00KUP_TABLE- TEMP Tari c 

E • ^P_TABLE.»VALUE-. ..mp.up*.^. 



•rfoef DBG 



3 0 »*• <v>g*tfy« float 

»wip_t«>*o. Wtt , « , . p -™ t ^ > '»Bn *(«?•) March vait* 

t*np_tatt#->iow = tamp tabto^hM* « , 

»pnrrttutnng__va/. (unswnwj «m n . 

' ' wyn *° ^ ^ »«»ro»__vntue); 
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»^AU^CATION,^.ut^v.^:-Rou«n.a««. tookup tttrt. ..mp 
Mfdef DBG W»-v*»T; -«*up.«». l«np. 

<pnraf(OeDu9.file. -%«t%s\t*<M%i\n- XREATE.LOOKUP TABLE" TEMP tap. c 

•trepiniempjaM^y^u, ttnnoval); 

PfeaK. 

case suing type 

temo LaniA_>i M >.. _ - 9 



temp_taoie->toiai s i 

#rfdef DBG 



^o^vafue-) ^w^viiue.-Rout™ create_too*up_taOkr temp 

10 *aS**- XREATE.LOOKUP.TABLE, TEMP_TABLE->VALUE". ,e m p uu^u. 

•endif " 



ws>yltemp_taw^>vaiuo. «rmg_val). 
case bad_riata_type 

f data ™"* tne tongtn of me fieto value •/ 
wmpjengm = stnenuemp taoie->vaiue) 
" (^ax«_tengih < temp_»engtn) 

x _a*«jengtn * tempjengtn. 

if (tookup_tato*e_heao » NULL) 



} 

etse 

20 « 



JooKupjable_nead « temp taoie 
toOKupjaoie_taii = temp_tao»e. 



if (mooe == insert) 

{ 



rf (tail as ioonuD_taoie_neao> 

( " « '^P«t.n,p.iaD,e.,vaiue tapis-vaiue, < 0,) 

remp - taDie->ne > rt = roo*up taore nead 
j lo o*uo.UDie^neao a temp_ taoie" 



else 

f 



rf ftemp_taoie-*iow < ia.u> (0W ) 

jwnp_tawe.»nexi = lookup table heao 
toORup^iaoia^heao * temp_taoier 



else 

f 



3 0 temp_ptr = taii->next 

tau.»next = tempjaoie. 
temp_t a oie->nett» temp jnr. 
rf (tan == too*uD_taoie tad) 
tookup_taoie_tau a Temp taoie 



} 

else 



3 5 lomp_ptr e taiL>ne*t; 

i«^next « temp taote 
^P.uew^nexTa temp «r. 
rf 0*1 «« tookup^tatxe tail) 
tooKup^taoie^tail « Temp table* 
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i 



) 



taofcupjaut jm^naxt ■ lampjaWa. 
tocttup_u&» jarf « tamp ja»t; 



10 



r 

n not ti trw axisunp fast tha n*w vaiu* a vuanaa tfler vymtit^ » wtnto Oefore lha hjj. 

•/ QTO -^' " ' WS - C0Um ' «^ « ™ «« to 100 (L . ,00 v.«, 



15 

«Wnoa nt _ , * , »W_nama; 

vnd "•W.numoar. 

anumoata typ# **** ncn . vaJu». 

int *~ ^Wjypa; 
to r *«^faotjon; 

to ° kUP - llWe - TyPe ^ 1"np_ta*a«NULL; 
•^^.typi mo0a . 

TO C 

slnn flLvaiue^num 

tomp^Uttie * tookupjawe head 
tau o tamp_taoie: " 

f ((l " mp -** - NULL) < watajawa)) 

25 /* NONE case 7 

m °Oe » create 



retumfD. ft,, - 6ut w.coum... ~ - numBar,e *w_vaiiie.f ie (o_tyo e flBIB _ 



status«0; 

Jor ( ; temp^ t. NULL t.mp_u». . .^^^ , 

3 0 awitch(fta» type) 

{ 

«ate aoitars 

caae ftoatmg^poou 

caae large jmegar 
case DiMype 

jf ((unsigned int •) searoi.value < lemp.taw-^) 

•tatus « LESSJTHAN VALUE 
35 " 

* * \ <- tamp^ta^w 

temp_tab)a»>t0tah-*- 
ratum{ 1 ); 
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} 

breax; 
case negativB_flQai. 

jf C(mt •) searcn_vaiue < temp_taDfe->iow) 

5 status = LESS _THAN VALUE. 

breax: 

) 

it <(mt •) $earcft_ value temp taoie->nign) 
{ 

temD_iaoie->tota»»* 
retum( 1 ). 

) 

break. 

case small integer 
10 case character 

if ((unsigned char •) searcn_vaiue < temo_taiMe->iow) 

status = LESS.THAN VALUE; 
break; 

) 

ff ((unsigned cnar •) searcn_vaiue <e tempjabte->high) 

temD_taoie->totai*+. 

15 r «unT{ i i 

} 

break 

case f«ea_stmg 
case meomm_mteger 
case year_monm 
case year_montn_oay 

rf Kunsigneo snon •> searc.n_va.ue < temp_tabie->.ow) 

$talus = L£SS_THAN VALUE 
2 0 orea*. 

) 

if «uns,gneo snort •» 5ear=r_va.ue « temo^ao,e.>n,gn, 

tern c_ t a d »e - > tola »* * 
retum( 1 ; 

) 

oreax 



30 



case stnng_Type 



rf ( (t = stmenpf searen_vaiue. temp_tao*.-*aiue. foicMength)) < 0 J 



( 

status * LESS_TMAN_ VALUE. 
OreaH 

) 

rf(nj 
{ 

ternp_taDi*->tota><~. 
retum{ ^ j 

} 

break. 



if ( status ) 
break. 

■a c tail « temp_tawe; 

" ) 

• H (ereatejaWe) r table ts NONE 7 

{ 

if (dist_bucket count < max count ) 
i ~ " 
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moo* ■ mart 

~J^_ittNmod., rtw.r«».t*Lnod..fi.k3.n«ne.fi.i a _ mjmo#f . M , rw , ^ ^ ^ 
'■*_P»>»asion.i»ii); *»_egew_eoum»» " 



iwum(l) 
) 



20 



25 



5 ( 

U (dut_buOiet_count ■= max_count) 
r for tn* OTHER cue >/ 
OBG CHECK_AU.OCATION(h. M .-R OMnn . ow.BueMt.v.J: ^ 

J^IOrtua.ft.. iGcT.BUCKBT.VALUr. HEAD", hud. "Mwo-d.-): 

1 o hu*>nea * NULL. 

^.8->v»^ • m«c*fFEU>_NAME_LENGTH*1> : 
ttf*f OBG CHECK. ALLOCATION(^. { ^> v . tu ,, ^.^>v. lue : S8( _ Bu o» 1 _v.) u . ^o^.**-) 

JSr (0MUa - fUe ' ™*"*«~*»". -GET.BUCKET.VALUE-. "HEAD-»VALUE". ^v*u.. "Mallocsfl ^. 

"° THER " * '•S^oM.aOTHER-/ 



' * LOW_ VALUE. 
15 heao->nrgn = HIGH_ VALUE 

neao->totai = 1 . 

too*up_tabie_ta»i->nexi = naaa. 
toOKuo_taow_tai» = head. 

retumjl). 



) 

etse 

{ 



) 



) 

etse 

{ 



) 



too*uD_taDie_taii->totai*< 
retumO) 



r not creating uo.es us.ng uoie tms snouid be using OTHER tab,e v 



tookup. taDie_ ta»u> r oia 
return^). 



Ac^Uybuiios the DT distribution This routine win be eeted •<m_ . ^ 

Pu««se**ooua d*nbuuon only if . " • 



l ?!r t !* k *- node ^^-^we_chstnbuiiof*daia root nooe t».i nrw, 



3 q struct sst_value_nooe Toot nooe 
«nja vawe_nooe -na,j " 



•fieto name 
unsigned mt f«ka number 

enumoatajype " retype; 

unsigned w f.e« length - pT ~ wv 

•tfuctbnmap Name_oitmap; 



35 
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unsigned int i.j.jj.kk: 

unsigned rt num_bss: 

unsigned long Tong^cem; 

int targe_nefl_mteger_item ; 

unsigned mt narge_mteger_ctem; 

unsigned snort •meojum_tnteger_iiem; 

unstgnea cnar *small_inieger_nefn; 

unstgneo mt twt_atm. 

unsigned mt *nemp_counter. 

float Ttoaungjtem; 

item! 



2 0 strmg_vaiue * maltoc/fietdjengtrv* 1 ); 

C HECK_ALLO C ATI ON ( sinng_vaiue . "stnng_vatue:snow_samo*_drstnDut«n( )~) : 
tifdefDBG 

fpnntf<debug_file. -%s\ttts\t%dU%s\n", ^HOW_SAMPLE_DISTRIBUTION-. "STRlNG.VALUE". strmg_vaiue. "Vauoced "). 
aendif 



20 



temp_counter = vatue_bitmap-> start, 

num_bn3 = aata->numoer_of_items: 

15 swccn (field type) 
{ 

case dollars: 
case floating_pamt: 
case large. integer. 

PROCESS_BIT_TABLE_PART_1 ( targe_mteger_item. unsigned mt • ). 

get_bucKet_vaaietrDot_nooe.taii_nooe fieid_name fieto.nomoer .targe^intcger^item. 

fie*d_tyoe tie to oreosion fteio lengmj 
PROCESS_BITTABLE_PART_2{ large_mtegerjienr BITMAPJNTEGER.SIZE? 1 ). 
break, 
case negatrve_float: 

PROCESS_Brr_TABtE_PART_1( large_neg_mteger_iiem. mt • ), 

get_Ducnet_vatuetroot_nooe.iaii_node.fietd_name tieid_number."iarge_negjnieger_i!6m. 

field_tyDe fteld_precision field icngtn). 
PROCESS_BlT_TABLE_PART_2( large_neg.mieger_item. BITMAPjNTEGERjsiZH l ). 
Dree*: 
case f«ed_stnng 
case year_monm 
case year_momn_day 
case meoium_mteger 
PROCESSES IT_TABIE_PART_1( meojum_mteger_nem. unsigned snon " ). 

get_buCKet_vaiueiroot_nooe.taii_noae fieid_name fietd_numoer "medium jnteger_ item. 

freid_rype fieiO_prectsion. field tengtn) 
PROCESS_BIT_TABLE_PART_2( rnedium_integer_nem. B ITMAPJ NT EG E RESIZE. 1 ). 
Break, 
case cnaraaer. 
case sman_mteger 

PROCESS_BIT_TABLE_PART_1( smali_mteger_rtem. unsigned cnar • ); 

gei w Ouo«et_vaiue(root^nooejat^nodBTwtd_nanie.f«to.m/mDer.*smaH_integer_rteTn. 

0eid_type fietd_precision.fieid_iengtni. 

PROCESS_Bn_TABLE_PART_2( smatt_mteger_nem. BITMAP JNTEGER_SIZE~ 1 ). 
break, 
case stnng_type- 
PROCESS_B!T_TABLE_PART_1( stnng_ptr. unsigned cnar • ); 
stmcpytstnnLvalue.stnnp^ptr.field^iength); 
strmg_vaiue|field_length) * XT: 
get_Du«et_vaiL»e(root_node.taii_nDGe.fatd_ra 

field_type.field_preeision.fieid lengtn): 
3 5 PR0CESS_BITTABLEJ>ART_2( stnng_ptr. BITMAP JNTEGER.SIZEfield.length, fietdjenytn ); 

break; 
case brt_type: 

PROCESSES rr_TABLE_PART_1 ( bitjtem. unsigned int • ); 
get_&uciiet_v«ue<root_node.tai!_nooe.fo^ 

field type.fteid_preaa»on.fteld lengtn); 
PROCESS_BrT_TABLE_PART_2( bit_*em, BITMAPJNTEGER.SIZE. 1 ). 
break. 
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PROCESS MBIT TABLE PART 21 lam* n» n ^W-P^Cision.fieW.tengtnj. 
break; " " ~oLt_HAKi_z( large_neg_mteger_item. BITMAP JNTEGER.SIZE. 1 ). 



case fixed_strmg 
case year^montn. 
case year_month_day 
case meoium_mteger 



PROCESSlMBIT .TABLE.PART.K nMui.mgr tern, uns-gneo snort • ) 
^t>ucke._vaiu.<roc L noae.^ 

PROCESS mrit tabi s oadt f »W_'yD«.''»l0^f8ci$ion.fieia lengtm 

breaK ' " " ~ 2( med,um -'™9»L«em. BITMAP JNTEGER_SI2E 1 ). 



case cnaracter 
case smaiMnteger 

) 

•rteef DBG 



J^U. "SHOW_SAMPLE_DlSTR!BUTION". "STRING_VALU£". .mn^vau-e. ^ 



J 

r 



free ( stnng_vaiu« ). 
stfmg_vam« * NULL. 

r»tumfroot_noo«). 



Actually builds tne distribution. This routine will be called for a subsidiary distribution 



*oata; 

struct hst_value_node -mot_node; 
•trud vatue_node *naji node; 

cnar ~ *fiekS_name; 

unsigned mt field number. 

•num datatype " f»eld_type; 

15 ^ fwk3_preasron; 

unsigned mt f»ld_ length; 

struct bitmap Naiue_bftmap; 

ktuc onmap *refefenc8_p«map; 

unsigned ml i, j. ij. kk. II, mm. 
unsigned mt num_bns; 
2o unsigned tang •>onB_item; 

101 "large_neg_mteger item 

unsigned mt 1arge_mteger_nem. 
unsigned snort Tnedium^mteger item; 
unsigned cnar *small_m7eger nem. 
unsigned mt •brt_nem; 

unsigned mt nemp_counter. nemp_reference. 
ft»i *ftoatmg_item; 
double *doubie_ttem. 
25 cnar *stnng_ value; 

cnar *stnng_ptr. 



temp_counter = value - bnmap->5tart; 
temp_reference = re1erence_oamap->stan; 

num_bits = valueJ>itmap->number_of_bits; 

30 

switch (field Jype) 
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case dollars: 

case floating-point: 

case large^mteger 

PROCESS.MBfTJT* ABLE_PART_1( iarge_mteger_item. unsigned mt • ); 

get_bucket_vaJue(root_nc>oe.taii_rtt>^ 

field_type,f»eid_prectsion.field lengtn) 
2b PROCESS_MBrr_TABLE_PART_2{ large jnteger item, BITMAP INTEGER SIZE 1 ) 
creak; 

case negative_float 

PROCESS JMBITTABIE_PART_1( large_neg_tmeger_rtenv mt • ); 

get_DucxeLva*ue(root_nooe^ ||em 

PROCESb_MBlT_TABLE_PART.i/ mm^mm nem um.^neo cn,r - , 

Ott.Dua« L v*««fooi.«oot.iaii.noo; l«ro_riame f M numoer »me V r W r 

WCESS.MBrT.TABLE^ART.2, ^ " 

casa imng_iyoe 

trfdefOBG CHECK -^ L0 ^ Tl0N <*^^ • "^vaKi, ,now.,uD,.»,m^ 

-SHOW.SU8S.SAMPLE^D,S77„Ban0.r. 4tRING_VALUE, ^ v ,^ 

p ROCESS_MBIT_TABLE_PART_ 1 ( string. U r*gn«j cnar • , 

«mcoyiitnn9^v«KJt.»tniig_ptr.f»u langm) 
smng_vatuajh«tt_iengm) ■ MT 

- - PROCESS MBIT TAR i f padt ^ JVPa foa^pf eeuion.fwio wngmj 

1 0 « 55 _ MB , T _TABLE_PART_2< nmgjrtr. BJTMAPjNTECE RESIZE T** -not* , 

WaefOBG " 

JPnn* o. Bu9 _„.. w . "SHOW.SUBS.SAMPtE.D.STR.BUT.Orr. -STR.NG.VALUr. ^ .,. 

frea I strmg_vamt ). 

«fmg_vaiua « NULL. 

CUitxl typ* 

PROCESS.MBIT.TABLE.PART.K p*^. mtgn ^ „ . , 

^-^•'-^'oot.nooa «*■-"«• ^.numberr-bi, ^ 

* ^OCESS.MBrT.TABLE.PART^ SnJ^J^^^ 

) 



} 

r 



20 z^s=^.zzx^:s£z~--~..~-.^ 

•trua ltsi_va>u© noas 'show our 
itrua iiti _ data. 



wua v»ut_noo« -toil TUo- 



«tnx: v«ue_nooe 
cher 

25 «^ totd _ tyDe; 

enum pur pro tvra - - • 

mru*~ u - | yP« Query mooe 

{ ^_prd_count: 

■"•WW M. il. kk. B. m=o. mm 
3 0 unsigneo mt num_ D «s. num varue$=l 
unsigned long non^em: " 

•ta^e.nea_mioger_iiem; 
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unsigned *t ■tvge.etteger.item; 
unsigned snon "medium^intiger item- 
unsigned cnar 'smail.eieger nam- 

unsigned tm tnjmm: 
unsigned tnt "temp^eounten 
unsigned snon temp^map; 
float Ttoaiingjnem; 
5 double •oouble.item; 
cner ^tnng.vaiue; 
cnar *stnnQ__ptr, 

lemp.oounier « vaiue^ftitm«p->start; 

* (Query^mooe s» purchase) 

else ^P^wap « purOi.map; 

tf (ouery.mode es product) 
temp_map = prdOl_map. 

x o nUm - btt$ s v ^.bitmai^>numDer.of,brt S ; 
•witcn (field .type) 

case dollars 
case floatmg_pomt: 
case targe integer. 

PROCESS.PBIT.TABLE.PART_1< large.eiteoer.nem. uns.gneo mt • ) 
Cpur_prd_countK*: 

get.bucicet.vaiuetroo!.nc<ie.ta.Lnc>oe.f.etd_name field numoer 
25 PROCESS.PBrT.TA8L£.PART.2( Utrge.-nteger.^ **J*m i-«..ngm, 

ase negative float: 
PR0C£SS;PBrr.TABLE_PART_1 , ^_n^_ moger nm „ . , 
(•pur_pro.countr**. 

geLbucKet.vaiwe^root.node .tail.wwe.fielo.name fold number 
PWCESS.PB^TABLE.PART.^ larger 

- - case f«ed_strmg 
case year_monm 
case year_month_oay. 
sase meoiurr. integer 

PROCESsIPBrr.TABLE.PART.K meo„m_,n Ie ger_nem. uns.gneo « • , 

Qet.Duae't.vawfoot.nooe.ia.i.nooe fieid.name field numoer 
"OCESS.PB*^ 

2 5 case cnaraeter 

case small integer 
PROCESS.PBIT TABLE.PARTJ, amainm^j*,,, un,^ m • , 

Bei.Bua«.w«iu^foot_node.lail.noot.fwW.n»m..<»id numoer 
PRJCESS.PBr.TABLE.PART.2, OT ,„_ mlB ^J^ 

case stnng^type 
strmg_vaiue * maiiocf field lengtn^l) 

eendrf ' R *™w- VALUE" ltnn 9 _value. 

PROCESS J»BITTABLE_PART_1< «nno_ptr. un^gn*. cnar • ) 

^l'*™" " ' «««-'ooiajo.taDi. had nnng imgrn and we u* M new 

g8Ltxiaei.vau«,roo!_r«x 1 ..M[l_r^ e / W ! 0 _ rume TmW _^^ r ltn ^_ ya ^ 

PROCESS PBIT tapi e n.» ,. '»ia_type.fiBlo_pr8emon.fteta length) 

0 «SS.PBIT.TABLE.PART_2( atmajMr. B,TMAPjTOGER_SIZET,e W j^ f jj a _ ^ ,. 
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#tfdtf OBG 

35 



NULL; 



ante type: 

PR0CESS_PBrr_TABl£_PART_1( „ . , 
WOCESS.PBrT.TAflLE.PART^ ^ ^jm*^.* 1 



10 



30 



j r * turT V*root_nod«); 

r 

This is the em. it is tmng catted Dy trie 
^ oetnouten of a ing* fie*. ^ ^ ^ aHo^^^^^™ " * prOv,0M ■ «■"■« 



_ mm_freq. 
{ mnjraq. 



fit 

15 nt 



ttotus: 
cnan. 



^ *"»od bofter=NULL 

«">»_namerMAXFl£LDS). 
°* ar f»»ename=NULL 
itfua ■Oor«ss_r3n^8 retac 
wuaou»fy^rto lemoq; 
struct fieio_entry -tiata 

unsjgneont fiew.numoer 
w nt 

oanmnerr LOOKUP DELIMITER 
«rua hsLvaiue.nooe -omuion " ER 

struct n$Lvaiue^nooe Toot nooe * NULL 
wua vatue.nooe la^nooe = NULL. 



■buffer. TiefO_&ufier. 



m Teference_counteO. 
? c cnar f«tt_*ngin. 

5 -urn Pur^.ov^.^%^- ,tf ' , " BP -- un <-.1NUM.S7R.NG.SKEl 

•trio ouery mto 'Query tree r>eao= NULL 

enum ouf^oro^tyoe Query moae 
unsioneo nt DuTpro^counTeC 

r truuaiae orooai values */ 
x^«Jti«_*enytn » 0. 
a*tnoutcnjotai_count * 0: 
mai^coum * di*i_ouocei_cDunt * 0: 



* (datnouuon total count "01 
{ 



* (purchase Query) 

j»»u«i_«. L coum « cx»«. M ,_ bltt<m «. r _ pureriM ._ twmapl 

if (prooua_query) 

"«.tnDuuon.,o»..co UB . . eoun,. M ,_b„ I(m . Me w _ egln|p) 

3 5 8i»tnBution.ioui_eoum « mawer.count 
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20 



35 



) 

if (Ownauuon_totai_ count = 0) 

«repy<msg_6uffer. •VHnNOTE.W); 

«rcat<mso_ouner. The ouery you tettaea. eouU not maten any recoros in") 
msgjmi^er \msgjbutitr): 

else 

prmtfr%s'\ msLdtrfferj, 
retum(SUCCESS); 



> 



* 

1 0 wod^buffer = file Jist; 

wnne ((fiie_ptr»sircnnmoa_Duffer ( ceiimiter)) '= NULL) 

fiiename © ge!_strtng(&modj>uffer. delimiter)- 
•prmtf<tabie_narne. noom^OffAs.aat;". filename): 

freef filename): 
fiienamesNULL. 

- c * (fiie_ptr==NULL) 
15 { 

fiiename = gei_strmg(&mod_buffer. delimiter) 
filename»NULL; 



) 

whiie{(tempq s ne*t_parse_entryt)) •= NULL) 

if (Query_tree_neao == NULL) 

query_tree_neao = tempo 
else 

{ 

free_parsejree < Query tree nead) 
^ puery_tree_neao = tempq. 

field = temoa->f»erc 
2 5 fieKJ^numoer = nasn(f, e i 0 .>f*»a name) 

field^lengm s tempq.»heio->lieid eno 

r mao section rue 7 

«^«00^ M ^0F* (fe(a . MaWe •, eoe , rwe , fwW . >f|e|(} name 
if ( is •n-ortsu.utr UW f * k ^* 0n '•W^O.r.rf.Otoc*,,. 
enor_nanoier (MAP_OPEN_ERR. ERROR „„. ^y^o^^-, 

30 r set stan address of data points V 

falo->oaia*>ftems = retaor. start. 

tookup^bufler « too*up_val_tai» « NULL; 
T searen for value distribution 7 

r 

For juouamry oatnoutran call the suw imoutwv 
Forpursnaiedwntiutjon: " 

2 ^TT!!!- qu * ry - lhan caB Mn **_««*uuon 

* ^-"WT. then call aamote dixtnbuliort 
(/ * not prooua_query. then call t*£efo_ d iitn OUU on 
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^nooe. f^id.n^f. f** ESS" S^STtvo. 



} 

•fee 

{ 



if ((«mcmp<r»icwieie_name. TUFT. 3)) » oj 
ouery.mooe « purtnaw 

* «stmonp(rieid^fie tt _n«mc. "PRO*. 3)) s* o) 
ouery_moo« « proauct 

0U0r y^'yP» ■ reference.! 



2 5 *w«en (Ouery.type) 



case total _pyr .pro 

«trcpy<msg.buffer. "\n\nN0TE:\n"): 
if (Query.mooe == purenase) 

J******,. Dumttfl^n to A(wg . ef Twa( pureftase naj ne( ye( ^ ttTiDBm>niea ^ 

20 *fOMO.CONNECTEO) C0maO me D** 0 *" L«* Prooua Manner lor rew„, oa.a, ^ 

m »fl_Duf_Her (msg oufler) 

rai 



pnnltnts- mig_ tiuffer) 
fWum(SUCCESS). 



ioaa.t 0 OR Ue _ 1 mem,a.,enf4roo ! .nooe 4ta, L nooa f.ei 8 .»oat».» l , e m S f«« 

raferenee "count, " M .'>« '»^ l o.enom n j, Mm » 1 „„ 



d.atnou,™ = ^ow_ou'_ C r S . MmDle _ 0 , I1(f , 10 . >oala 

_y owsion iwio.>iieio «no master Dttmao Quwrv mm . 

- aD - Qu * fy - mooe ouery^rype. dour .pro couni) 
aistnoution.totai.couni a our _pro courv " 
sonnmiemD.coun L »ir. -*<r o.stnoui,on total count] 
mmr.8ouni.Mr « r»en.comm. (temp^.^ 

30 * (QU * n /- m °ete « purcnaie) 

sormrt tmsq.ouffer - Total ourrnase recoros ^ 

atrcat(m»g_bufler. 'VrtnNOTE.VO 
wotinwo.ouffer. -Thar, wafB ^ p— ,„ 

» (DMO_CONNECTED)^ °**" <J P *"« «0- anotnar a^ocoon.^-,. 
35 ^^miLBuf.xtar (rru^ouffaf); 

pnmfCfcr. mtB_ou»ar); 
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} 

) 

etse 

{ 



r»tum(SUCCESSj; 



sprmtt <msg_buffer. " Total oroouct reams ■ *,yr master count str) 
if (distribution total count 0) - 

5 { " " 

strcat<msg_burfer. 'ViViNOTE.An"); 

streat<msg_burfer, There were no orooua records found for this oueryAn") 
strcattm$g_0uffer, "No Otstn&ution was created. Please try another selection \nvm 
if (0M0_CONNECTED) 

msLOuf.sfer (msg_ouffer); 
else 

pnrtf(-%s". msg_buffer); 
1 returnfSUCCESS); 

) 

) 

if f DMO_CONNECTED) 

msLbuLxfert msa_ouWer ); 
else 

pnntfr%s\n", msg_buffer); 

" free(maater_count_str); 

master count str = NULL 

) 

) 

etse 

< 

if ((f stmemp<fielo->field_name. "CUS" 3) « 0) \\ <stmcmpffielo->field name. "SUB". 3) 0)) && 
^ (purcnase^query || prooua^ouery)) 

2 0 distnbution_totaf_eoun! s master_count 

sonrttf(temp_eount_str. Tfcd". master^ count); 
master_count_str = msen_comma (temp_count_str); 

spnntf (msQLbutter. " Total customer recoros : %sVT. masier_count str). 

if (DMO_CONNECTEO) 

msg_buf_x1er( msg_buner ). 
else 

2 5 pnmf("T4s\n". msfl_butfer). 

free(master_eoun!_str ) . 
master count sir = NULL. 

) 

toad_tookup_tnformait^ f»to-»oata->nems fieid^numoer.tabie name. 

fieio^fieio.name.fieid^ftetd^typeJwid^field eno.mrn treqmax treq 
reference_couni). " 

^ ^ if ((purenase_ouery) && (stmcmp(fieio->f»e»d_name "PUR". 3) — 0)) 

distribution = snow_samo»e_oistnoutionffieio->aaia &rooi_nooe 

&tai»_nooe fieio->f»eic_name f*id_numoer ~fteio->fieid_type. 
f«to->fieid_precision.fieio->fiBro.ena master j>urcnase~oitmap}. 

if ((proouct_ouery> && (stmcmp(field->field_name. "PRD" 3) == 0)) 
distribution = snow_samp»e_ojstriDution<fieio->aata. &root_nooe. 

Aiaii_nooe. f>eid->field_name. field_numoer, fie~fd->fietd type, 
field->ffeio_preasion.fielo->f»eid end. master_prooua bitmap) 

35 etse 

distribution = snow_samolej*istnbution<field->data. &root_node. 

4taii_noae. fieio->fieid_name. fieid_numper. fieloWtekJ type. 
field->fietd^rectsion.fielo->fieio_eno. master_bitmap); " 
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} 

r In case we ois not specify taoie_namei •/ 
if (create taote) 

{ 

create_tao*e » FALSE. 
looKup count so, 

) 

r unmap section file */ 

status = Unmao&oseFiietcnan, Aretaor): 

Jf ( »_erron status)) 

error_nanoier (UNMAP_CLOSE_ERR. ERROR, status. ~disoiay_sampie_dismputtorr): 
num f*tos*-. 



T prmt vatue aistnbution */ 
if (tooxup taoie nead '» NULL) 
( 

r expand me fieto information appropriately tor ourcnase and suosidtary */ 
fieto_ouffer « QeMietd_iapetffieio->fieta_name fieio~>fietd_iaDe!). 
r prmt_sampie_oistnpution tree tne various noaas as print* finished witn 
15 prmt_sampie_oistnputionifieio_Dufter i fieio_iengtn. tooKup_taoie_neaa. num_fietds. *_axis_iengtn. 

OJStnoution_totai_count). 

treeffietd_ Duffer), 
field Duffer = NULL. 

) 

else 

{ 

strepy<msg_Duffer. Vi\nNOTE \n1 

strcatimsg.oufter. "No values touno for mis oistnoution. ptease try anotner queryAnm"). 
- tt (DMQ_CONNECTED) 

^ u msg_but_*ter( msg_ouffer ). 

else 

pnntf(T4s\n". msg_puffer). 
prmt text Duls ( ). 

J 

r 

Altnougn oistnoution fieios are Duitd wnnm me ouery_mto struaure. tney ore not ouenes so tnere is not history 
assooaieo wrtn mat fieio ano in addition tne current ouery entry needs to oe oecremerned to 
compensate tor mis " " " 

25 ' 

re»et_ouery_entry<num_f letos ) 

if (Query_tree_heao ♦» NULL) 

free_p*rse_tree (Query tree need) 
Query_tree_heaa « NULL " 
feset_par»e_tree(); 



10 



30 



r tree the tookup_oufler. mis butler pets set onry for tne NONE condition •/ 
if (lockup ourter •« NULL) ' 

{ 

fre*_ioc^ujp_taOiertoo*up_Duffer); 
too*up_oufler « NULL, 
ioo*up_val taii» NULL; 

} 



if (lookup tatto head t« NULL) 
{ 

tree^*ooiuip^tab^_type(kxskup^taDie head); 
tookup_taPie_nead ■ NULL 
lookup taPte tail ■ NULL: 

) 

returrKSUCCESS); 

) 
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r 

Srnttrto tha toad.tookup.daia routm* tn m. load.tookup.data. tn* ma value * disown ^ me „ 
display^. Th«s rouirw eiso Duos um bn^o u»t «i n a .^^^ " T^JZIT !? oosrnon is twmg 

•/ ' WTwn a UDI# » epeofieo ano atso wnen no uow (NONE ) is soeoiwc 

w toao_Mmp*a eount_datef rt»t_noda.ioot z nooe tan nooe ounmr fm* . 

.a»«,counn avua otstnouieo Type ' - nOO *- 0un * r r **_^o««u_eais_ count y_axis_ count, r 

struts ZDOitton^type -root 2 nooe 

struct ttoei.iype nail nooe 

5 cnir -buffer: 
•™ fla «JW» retype. 

" offset; 

^_axis count 



rtt 

{ 



Struct lookupjabiejype "temp_taDie»NULL: 
cnar "temp^cnar. 
cw •modJbu*emNULL 
1 0 cnar 0elimrt«f=LOOKUP_DELIMrrER 



cnar 
cnar 
ru 



low_oate(DATE_sfRlNG_LENGTH). htg;h_oaiefDATE_STRING LENGTH] 
nion_cnar ( iow_cnar. 

»; 



rt temp_»enatft. 

rf (*z_axis_coum>=0) 

(*z_axts_count}*-. 

eise 

* - if (*y_ajns_count>=0) 

{*y_a*w_couni>-*; 
eisa 

(•*_axts_count)*+; 

tempjabie * fstruct tookuojabie.tyoe •) maiioc (saeoffiemp table)) 

CHECK_ALLOCATlON(iempjabie/Rout»r*e ioao_sampie_count_oata. temp labia"), 
a if oaf DBG ~ *" "~ 

fPf*moeaugJile. ^su%s«%d\t%s\n-\ "LOAD.SAMPLE.COUNT DATA" TEMP TABLE" lamp ia D .e 
"Vaitoceo ano initially used by lookup 
2 0 ««ndrf ' 

tempjabie«>neict s NULL. * a b*e-> lookup Jistjeftset} ano man py labia jair). 

mod_ Dutfpr * Duffer. 

if (StrcmpiDUfler. fiLANK_STRlNG) == 0) 

r 

case wner a Ubte name was noi soacified. connnua to build me 
^ struaure. nowever. 00 nt nave to build me iookud taote eicept for OTHER 



25 



rf [ strcmp( buffer "OTHER") == 0) 



iemp_tabi*->vaige = maiioc/FlELD NAME LENGTH* 1) 
Mdef DBG CHECK - ALL0CAT,ON ^ m P.«b,e:>va t ue" Routine ioad_sampie_coun L oata tamp tabia-va.ua') 

^AO.SAMPLE.COUNT.OATA- TEMP_TABLE-> VALUE* lamp.. 

5trcoy(temp^tabie.>vaiua ouffer) 
3 G iemp_iab»e->iow = o 

iemp^tao*e->hign s o 
temp_tabie-»pos = max count. 

men.samo l e.count.n; a0 er,temp.tab.e.>vaiue.roo L no a eroo L z.nooe ta.i nooe stnng lvDe 
j ort,el - #I - to,s .»unt >_aiis.couni.Xa*i$^count) 

else 

{ 

«nsen_,amc«e_«un L r*aoer(BL^ ^ 
3£ retum(l) oltsei. ^.ax.s.count.^^^count.Xaxis.coJnj) ' 

) 

) 

eise 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



PCT/US94/12074 



143 



switcnf field type) 

{ 

case enaracter 

temp_tapie-»vaiue » get_stnng(&mod_Putfer. oeitmiter). 
temp_cnar = get_strmgf Amoo.Dufier. aenmrterj. 
temp_taD>e*>iow e iemp_cnar. 
freeftemp_cnar); 

iemp_cnar « get_strmgr&mod_&utter f eelimrter); 
-j temp_tao»e->hipn = temp_cnar. 

^ free(temp_cnar): 

temp_cnar s NULL. 

insen^iampie^count^headerdempjaWe^vaUie.root^nooe.root^nooe. taii_noae.strmgjype. 

oftsei, *x_axis_count. *y_ax isocount, ^aais jcount), 

break: 
case Prt_type 
case smaiMnieger 
case f«eo_sinn5 
case rneowrr;^ integer 

Cast largo_tnie7«r 
case conarj 
H C case ftoaimg_point 

temp_taoie-»vaiue * gei_strmgf4mod_ butler, oeitmaer). 

iemp_cn*r 3 Qei_strtngf&moc_Pufter. cewntier). 

temD_iao»e*>*ow = atomemp_enar). 

ireeiiemp^cnar) 

iemp_enar * gei_ string! Amod_pu!ter. delimiter). 
iemp_ta&te->rirgn = aiotHemp_cnar). 
rreettemp_cnar). 
lemp^cnar • NULL. 

tnsen_sampie_coun!_neaoeroemp_tatHe-»vekje.rootjioM^ sinngjyoe. 

on»e"^aai5 couni,>~iitj_count > X* x,, _ count > 

txeen 

20 



30 



35 
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casa yur^montn: 
cut yaar_montn_oay 

temp_taoie->vaiue * gei_stnng(a\mod_Duffer. oeitmner), 

temp_cnar = oet_stnng(&moa_Dufler. oenmner) 
5 iemp_tame->tow = aaie_to_numoerttemp_cnar); 

tree<temp_cnar); 

temp_enar = get_stnngf&mod_bufter. oetrmner): 
temp_taoie->nign e aatejo_rajmoen;iemp_cnar), 
tree(temp_cnar): 
temp_cnar = NULL 

insert_xampw_coun!_hee0erttamp_uwe^value.fD«^ taii_nooe.stnng_type , 

offset *x_ax account, *y axis count."? axis count); 

braaK; 

10 case strmQjype: 

temp_tabi©-> value ■ get_sinngfa\mod_bufler. delimiter); 
iemp_cnar s get_stnng(Miod_bufter. oeumiter). 
temp_taoie->iow a atoi{temp_cnar); 
freeuemp_cnar); 

lemp_cnar » oet_stnno(&mod_buffer, delimiter}; 
temp_taDie->mgn « atoj(temp_cnar); 
free<temp_enar); 
!emp_cnar = NULL 

insen_samp»_count_heaaerttemp_tab^vakj* 

15 offset X.w.6ount. •y.axts count "2 axis count). 

braaK. 
case Dad_oata_type 
rotum{0). 
braaK; 

} 

) 

tempjengtn = stnenfiemp_taoie->vaiue). 
if {*z axis count>«0) 
20 { 

if (x_axts_langtn < temD_iengtn) 
z axis lengin = temp tengtn; 

) 

etse 

if (*y axis count >=0) 
{ 

if (y.ajcis^tengir> < temDjengtn) 

y axis ieng?n = temp »engtn 

25 > 

else 

if (*x axis count* =0) 
{ 

if (x_axisjengm < temD_»engm) 
i_a*is_ieng!n * temo tengtn. 

J 



if (tookup taDle-»toonup Ust(oftset) == NULL) 
30 ( 

lookuD_taOte->ioo*upJ«stf oftsei) = temp_tao»e. 
taoie tan ~ temp taDie 

J 

eise 

{ 

taoiejai*->next = iemp_taoie. 
taoie tau = temp taoie. 

) 

retump). 

35 

} 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



PCT/US94/12074 



145 



r 

This romme a catted by ioad_samp*e_count_heaoer if a tabte name is not soeafied (NONE case) ft will get tne values 
from tne database and txjiid tne tab* (urwed list), ft will be called for oetn customer ano subsidiary fiews 

1 

mtptf Jookup_vaiues(vaiue. fieW_name. fieWjype. field_precision. field Jengtn. sub_set. temp_reterence. 
5 max^coum. vaiue_Oftmap) 

void " "Value;" 

cnar TiekJ_name; 
anum datatype fialdjype; 
mt fald^preosion; 
int fie»d_iengtn; 
■nt subset 
unsigned int "lempjeferenee: 
■nt max_count 
struct bitmap •value.bitmap; 



15 



10 { 

unsigned mt i. j. k; 
unsigned mt jj, kk, II. mm; 
unsigned mt num_bits; 

int *Targe_neg_integer_item; 
unsigned mt •large_mteger_item. 
unsigned snort •medium_mteger_item, 
unsigned cnar •smaMjmeger_nem; 
unsigned mt •brt_«em; 
float Ttoatmgjtem, float_num: 

double •double_nem: 
cnar «rmg_value|MAXCHARS); 
cnar •strmg_pir. 
unsigned mt nemp_counter. 
mt increment, prec_val; 

struct looKup_vaiues tuffer temp. *nead: 
cnar temp_Dutter|MAXCHARS]. 
20 mt count = -v 

■nt fieid.offset: 
ml mtssmg_-.aiue s 0. 

W status «0. 

tern d_ counter = vaiue_bitmao->siart: 
num^ous = vame_bitmap->number - of.bits. 



25 



kk = BITMAP JWTEGER_SIZE. 



for { *=0; Knum bits: »♦* ) 

{ 

if("iemp counter) 
{ 

if Hemp counter 
< 

mtsstng_vaiue = 0. 
swttcntfietd type) 

30 * 

case smaii_tnieger 

rt (Cunsigneo cnar*) value) == MISSING SHORT VALUE) 
{ " 
missing value » 1 . 

) 

eise 

{ 

count** 

buffer = (strua iookuo_vaiues •) maiioc isaeoff ■buffer)) 

3 5 CHECK_ALLOCATION(bufter. "Routine get loonup vatues buffer") 

*ifdefDBG 

fpnntt(oeougJile. "%s\t%s\I%d\t*s\n". "GET LOOKUP VALUES" "BUFFER", buffer "Malioced ") 
aendrf 



SUBSTITUTE SHEET (RULE 26) 



WO 95/1 1487 PCT/US94/12074 

146 

bu«er-»!ookuD_ff>ai ■ nunsrgnea cnar •> value) 
Du«er->ioo*uo_«nng = maiioaM AXCMARS* 1 ) 

•ifdef DBG tfcrfto-nooKuo string"* 

Jp™,ceDug_f lte . IMi^ln-. VALUES" *BUFFER»>LOOKUP_STRING". buffer- 

^ loricjo stfifiQ Tvuncced ") 

spfmtf(Duffer->ioo*up.strmg. « Afl * fl : . Duner-xoonuo^inox. 

5 Duff er*>iookup_ max. 

^ buffer->iooKup max); 

buffer->next s NULL: ~ 

} 

break: 
case enaraeter. 

(Hunsignea char •) value) «■ MISSING.SHORTJ/ALUE) 

missing value = 1 , 

) 

10 «» 

{ 

count**: 

buffer = (struct lookup, values •) maaoc (saeoff ■buffer)) 
CHECK^AUOCATIONfouffer.-Routine getjookup values: buffer) 
•rfaefDBG " 

buffer->iookuo_inax = (-(unsigned enar *i value) 
15 buftef-xoonuD.stnng a maiioc»MAXCHARS*1 ) 

..Oef OBG HECK -^ L ° CAT,ON, ^ er - >,o ^^' nn 0^« 0tLW.v«« a^oowp_«nn«. 

X 0 '^^^ • GET - L00WP - VALUES -- ^-LOOKUP.STR.NG-. 
•ena/f 

sonntf(buffer->tookup.string. "%c.Sc %c". buffer->iookup_indx. 
_ buffef ->tocmup_incx 

^ G buffer— tookup^mox), 

butter .>nert = NULL 

) 

OreeK 
case oouars 

if (nurwgnec mt •) value) == '-^SSING.LARGE^ VALUE) 

2= ' 
^~ eise 

{ 

count 

buffer = (struct lookup, values •) maiioc rstzeoff "buffem 
«oe, DBG CHECK - ALt - 0MT '^^' ^.-25L tufan. 

-ST" 1 * ™™*"W. "GET_lOCKUP_VALUES", "8UFFER". buflBr . ^ 
buflaf-.|ookup_«B = Huniionad mt •) value) 
3 0 "oaLnum = (float touTter-.ookup mex/1 M Q 

-HECK_AaOCATION(b U ffar-, l ooK UO S ,nn 9 "Rout,™, oe, loo-un 
•ifoef DBG 8 tw.'ookuo.vaiues: Oufler-xookup «nng-) 

•pnna.oeDug.,*, TWflttBdl^. "GET.LOOKUP.VALUES- 3UFF ER .>LOOKUP STR,^ aufer-x^ 
_stnng, Ttfalioced."). wup 
•enorf 

se^(t>uffer^iooiuip^stnng, "*7.2r.%a%d-. ftoat.nun,. 
2 5 buffer->iookup_indx. 

buffer-next * NULL *tfec-iooKup>a*): 

} 

break: 
case floating_pomt 

rf (C(unsrgned mt •) value) MISS.NG_LARGE_VALUE) 
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) 

eise 

{ 

prae_vai * (mi) pow(10. fmtojxeaston) 
count**. 

butler s (struct tookuo.vaiues •» maitoc (sneofffeuftar n 
CHECK.AUOCAKON,^.,^ Mr, 

#rfdef DBG 

5 •.5r m0eDUa - fte - ^««**«^. 'GET.tOOKUP.VALUES-. "BUFFER-. ^ , 
CHECK_ALLOCAT.ON (eun . r ^ OOKup 

* w, - ,w *w_vaiues bufter->ioo*uD_ string") 
* ^r g e ^, r i a T ,AStt% * ,%S "'" " GET - L00KUP - VALUES - TWFFER.HOOKUP_STR.NG-. ^e-ocKuo 



#ifdef OBG 



10 



#enorf 



,, *«_precjsion float num 
buffer->next = NULL, bu*er.» 10 o^Djr>a* 
^ aK . buWer^ioonuo^mox). 
case negatrve_float 

rf(nmi-)vatue)«MISSlNG.NEG FLOAT VALUE) 

15 " 

m«smg_vaiue = 1, 

eise 

{ 

prec_vai = <mt)Dow(iO field orecision) 
court!** 

CHECK.AaOCATlONcBuntr "Rouhne getjooKuo va.ues Duffen 

20 float.num « (float )Dutfer.».oo* U D mowec vat 

bLfffer-xookuD^strmg = mairooMAXCHARS*i) 

CHECK ALLOCATION! Duff er->iooKuD sirmo -Rft, rt .r« ~ 

oohud. siring routine geLiooHuD^vatues Durter->i 00 iiuD_ string"). ' 

wpw^sinn, ^7 ^ 3 %;j f.* io jjreQsion float n w m 
Duffar.>n«xt = NULL t>ut!er->too>iuo.ino» 

) Dufter*> looiiuo max) 

break. 

case f»ed_strmg 

25 * <ttunsjgneo snon •> v a , UB , == MiSSlNG_MEDlUfvM/ALUE) 

missing vaiue = 1 

} 

eise 

{ 

count*"* 

MMf DBG CHECK - ALLOCAT, ON(Dutter -Row*. get_,ooK U p_v..ues: buffer-) 
3 0 J£«~*S*. "*,V*S«*«,*, W , -GET.LOOKUP.VALUES-. "BUFFER", buffer. ^ alloco0 

Duffer^iooKuo.tnox = nuns,gneo snort 1 vaiu.1 

| bul,a '* >,00 ' , MP_»tnno,"Roijine pet_tookup_ values: Ouffer.>ioo*up w 

T5K£2T" W> " GET - L00 - > - v ^ -ffer.-ookup.str.mJ ZZL, 

35 a-ndrf 

jf (f«WJ» (a i6, t 0.off,«^te M _^ |b ^ | ^ up _ |n(h) NULL) 
strcoyf buffers iookud stnnn fixed fw»iriff.»n .1 , 
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ttrc«l(DUfl#r.»ioo*up_ttnnQ. !»mp_ftuf»er). 

) 

MM 

tpnntf(buff»r-»too»tup.«mg. * , %d.%d.%d~, bufler.»ioc*up_i 

buff 

buffeN>iooiujp no*). 

buff m~*rm* « NULL; 

) 

break: 
case medium weger. 

If ((-(unsigned snort •) value) « MISSING_M£D1UM_VALUE) 

{ 

mtssmg_vaiue * V. 

} 



{ 

buffer » (struca tookuo_ values •) maitoc {saeoff •buffer )); 
1 0 CHECK.AaOCAT10N(buffer.-^outine get_ioo*up_vaajes: buffer): 

MdefOBG 

fpnrtffdeougjils. "%s\l%s\t%dtt%i\n-. "GET.LOOKUP VALUES*. "BUFFER", buffer lUallocedn 
•endrf »• 

bunef->tooJcup_«ndx = Hunsioned t^ort •) value); 
buffer^tookup_stnng * maiioefMAXCHARS+1); 
CHECK.AUOC^TIOfWbutfer^iop^.ttnng.-Routne get lookup 
fifdefDBG values: buffer->tookup.«nnol; 

2 5 fprtmf(oeougJi»e. Tfcs\t%stt%dAt%svr. - GET_lOOKUP_VALUEr. TJUFFER->LOOKUP_STRlNG". buffers 

too*cup_«tnng, "Meiioced."): 
aendtf 

spnntffbutfer^tookup_stnng, "%d.Hd.%d~, buffef->tookup_mdx, 
buffer->iookup^«dJt, 
buffer->*ookup~tnax); 
buffer->nexi = NULL: 

) 

break; 
case brtjype 
case iarge_mteger 

"if ((•< unsigned mt •) value) MISSING LARGE VALUE) 
{ 

missing value = 1 . 

) 

else 

{ 

count** 

buffer s (struct ioo*uo_vaiues •) ma hoc istzeoffbufter)) 
*} sr CHECK_ ALLOCATION! outter. "Routine get iochujd vaiues oufler). 

" arfdefDBG 

fenntf(oebugJi)e, *T4stt%s\!%d\!%s\n- "GET_LOOKUP_ VALUES" "BUFFER" buffer. "Maiioceo -) 
•enarf 

OUfler*>too*u0_mcoi = ("(unsigned mt •) value). 
buf!er->tookuo_sinng = maiiocJMAXCHARS*1) 

CHECK_ALLOCATION(Duner->iooKuo.stnng."Routine get_tookuo_ vaiues 
butter->ioo«up string"). 

#ifdef DBG 

tpnntfmeDugJiie. "AsxrAsUttcWAsW. "GET.LOOKUP_ VALUES" "BUFFER ->LOOKUP_STRlNG"\ tu/fler->iookup. 
strmg. "Maiioced ~) 
eendrf 

spontff buffers lookup, string. **Ad.*Ad.*Ac<". buffers ioo*up_mox. 
DLrf1er->ioo*up_noj 

Duffer->tookup_max); 

buffer->nert ■ NULL; 

) 

break; 
case year_montn: 
3 5 case year_montn_day- 

rf ({"(unsigned snon ") value) == MISSING MEDIUM VALUE) 
( ~ 
missmg_vaiue = 1 ; 



30 
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} 

MM 

{ 

COUht**; 

chZZ tTZ* 0 **-**"* m8,,oe »«offbuffer)) 

MOefOBG 

Jwwf.oeDu9.fii.. Wa,™*,,^" -SST.LOOKUP.VALUSS-. "BUFFER", buffer. -WaHoeeS ",. 



•ifdef DBG 



Bufter->tookuo_mox e nunsigneo snort •) value); 
buffe'->ioonuD_Krmg = maiioefMAXCHARS*1 ) 

CHECK_ALLOCATION(oufler->ioemuo_smna. "Routine pet_loo«JO_v»ue$. bu«ef.>ioo«ue_string"). 



tormttioeougjile. -AM%s\tt4oM%,»n". "GET LOOKUP VALUES" TI.icccd . „„ 

.strmg. •Wal.oe.d "); " WUWP - VALUES • ™FFER.»L0OKUP_STBING-. buffer~.oo.cue 

•enflrf 

1 0 *Pnntf{buf»ef^iooKup.sinng. "%s %s %s". rnjmoerjo^date(Ouffer.>iooiwp^indx). 

numDer jo_aataf bLrff er^ooKup_max ). 
buffer->next = NULL numt>e^to_oata(Duf1er^too«upImdx)) 

) 

break: 
case stnngjype 

stmcoy|Strmg_ value, (unsigned char •) value, field length) 
strmg_vaiueffieid_iengthj = "AO' ~ " 

- 5 { rf '«wwnpumng2vaii» MIS SlNG_STRING_ VALUE, field jengtn) == 0) 

rmssmg value = 1 

) 

else 

{ 



butter = (struct tookuD values •) maiioc (saeoffbuffer)) 
•rroef DBG * 1 0CAT,0N < 0 ^" "Routine ge L too*up_ values, buffer). 

tDrmmoeDugJ.*e. -%s\!%su%d\fAsVn". -GET_LOOKUP_VALUES*\ "BUFFER" buffer. Ttfaitoced.-v 
•enorf 

buffer->too*up_strOTg = m »»»efMAXCHARs*i ) 

CHECK_ALLOCAT IO N,Ou«.~,oo.ue_«nn Q Tteufn. ge<_,ooKup_v„u„ ouffer.^up.smng-). 

trfoef DBG 

^tnmoeow^fi*©. -u$u%3U%cV^jw;- "GE^.LOOKUP VALUES". "BU?FER->LOOKUP STRING**, butler lookup 
••nor 

ttrncpy(OLrft©r.>iocwuD_stnng strmg_vaiue fieW_iengmj. 
bufter^ioo*up_sirmgffteia_iengm| * XX. 

bufler->ioo»iuo_ina» = nasn_xcrwfbufTe*->»ookup_ strmg. field jengtn). 
sprmtf(temp_ buffer. "%c.%d". bufter.>ioo*up_tnax. burter->iooKup max) 
strcat(buffer->»oicuo_stnng temp_buffer). 
buffer->next « NULL." 

} 

break: 
casA bad_oata jype: 
3 q ratum(O): 

breaK. 



if (»missmg_ve»ue) 

{ 

r mduoe this with the structure */ 
ff ftooKup.Dufler « NULL) 
{ 

tookup_bufler s buffer. 
35 lookup val tail = buffer. 

) 

else 

{ 
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r chec* where to rwert Vns V 



hno » amup^oufier. 
*m» (temp ?*"nULL) 

{ 

if (courri >• mjtf^count) 
g njtum{1); 

if (field jype «« stmajype) 

< 

if ((status * stronp(fcu««r.>ioo*up_stnng. temp-»ioo*up_stnng)) < 0) 
{ 

if (count < mu count) 
( 

if (temp «« head) 

( 

10 buffer^nein » looittjp.bufter. 

*oo*up_Dutter * putter 

) 

else 

( 

Oufter-»nen * temp: 
h*ao->nett = Duller. 

) 



15 



if (( count* 1) as mai_count) 
retum(i) 

DTMK. 

} 

etM 

retumn). 

} 

else 

{ 

if (status =s 0) 

20 I 

—count 

•rfoef DBG 

tomttaeougjite "•AsU%s\f%*\!*svr. "GET_LODKUP_ VALUES" ~BUFFER-»lDOKUP STRING' 
outfer->iooKuD_sTrmg Treed ") 
•endrf 

treefDU*e'->ioo*uc_sinng» 
CJtfe'-»iooKur^S!nn3 = NULL 

J5 stfaefDBG 

tpnnrtiaeDugJiie. "%s\t%s\t%d\fAsv>". "GE7_L00KUP VALUES" "BUFFER" p u *er "Freed "' 
eenoif ~ 

freefoutfer) 
Buffer s NULL, 
breax. 

) 

} 

o L 

( 

if (Dufter.>>ooxup_tnci < temp->iocxup_inax) 

if (count < max count) 
( 

if (temp mm head) 

( 

bufter->next * lookup buffer. 
5 »oo*up_bufter c ouffer; 

< 
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) 

•is* 



) 



bufforonen • temp; 
t*—a*>mxi * ouffer. 



if ((counts ) mm mmx_counl) 
retum(l); 

break; 



retum(l), 



10 



15 



20 



if (butt0f-»*oo*up_ma* « temp->ioomjp mac) 



{ 



•ffoef DBG 

f^oeou^. ^,^s^. ^ETj.OOKUP_VALUEr. -BUFFER->LOOKUP STRING" 
buffer.»ioo*up_stnng. TrvM -) 



buf»«r->ioomjp_stnng * NULL; 



Mdef DBG 



taW<oeDuLru«. -ttstt-Asu^cW***-, "GET lookup y,*, . ' 

^LOQKUP^VALUEr. "BUFFER-, buffer. Treed -) 



fneefOuffer). 
buffer s NULL, 
bree*. 



n«ao « temr 
temp c temp^ntxt. 



rf (temp =r NULL) 



else 



loo * uo -V«)_ta«t-*r>«ri = Duffer 
*x*UD_veija„ s ouffer 

"<fcowni*i» es maj ^^j, 
reium( l ) 



retum(i). 



5 



) 



increment = i 
* <suo_seh 

nemp_ reference & jj) 

temp_reierenc*»* 
eise 

increment = 0; 



t increment) 



»witcrVfiew_iype) 



{ 



case oouers- 
case fioattng_pomt: 
case iaroe_ integer 
case tnjypo 
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iarge_mteger_item s (unsigned ml *) value: 
large_integer_nem** . 
vatue » (void ") iarge_mieoer_item. 
break; 
case negairve_ftoat: 

targe_neg_mtegerjtem « (int •) value: 
»arge_neg_tniegerjtem** ; 
vatue = (void •) large_neg_mteger_nem. 
oreak: 
case fucea_strtng 
case year_monm 
case year_momn_aay 
case meonjm_ integer 

meaium_mteger_nem s (unsigned snort *) vatue 
meaium_integer_ item •* . 
value « i void ") meoium_integer_item. 
breaK. 
case character 
case smaiMnteger 

smaii_mteger_item e (unsigned cnar •) value. 

smaiijnteger_item*+; 

value « (void •) smaiUntegerjtem: 

break; 

t_ 5 case $UTng_type 

stnnc,_pir ■ (unsigned cnar •) vaiue. 
strmg_ptr *= fieio_iengtn. 
value = {void •) stnng_ptr; 
creak. 

) 



if(-kk) 

2 0 u «*■ i 

eise 

{ 



) 



temo^counter • * 

u= r 

k* = BITMAPJNTEGER_S1ZE. 



r 1emp_eounter == C oump oast wftoie word "/ 
else 



if (sub_set) 
{ 



if nemp_re*efence) 



jor(»| S 0.mmai. M<BrTMAPjNTEGER_S!ZE. I*~mm«ri> 



if pemp_reference & mm) 

30 i 

swncn(fieid type) 

f 

> dollars: 
floatmjLpomt: 
isa iarpe_mteger 
«e bit jype 

tergo^mtoger^RBm = (unsigned mt*) value 
laroe_mieger item** 

^ c va,ue e < •) »arge.mteger item; 

w b break; 

case neoatrvejbat 

lwoe ^ n *Q.»meger - rtem a (tnt •) vatue 
4Br 0«. f **g_mteger item** 

value « (void •> Ian5e_nec_*itegef «em 
break: 
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10 



1 faed_stnng 
case vear_montn 
case year_montn_cay: 
case meanjm_OTteger 
medjum_integer_nem » (unsigned snort •) vatue 
me<Ja/m_imeger_nerri 
value « (void •) meojum_mteger_item: 
break: 
case cnaracter 
case smau_mteger 

smali_mteger_i!em = (unsigned cnar *) vatue 
smali_mteger_nem~ 
value = (void •) small integer nam; 
orea* ~ ' 

case stnng^type: 
swnq^pv - (unsigned cnar •) value. 
strmg_ptr field_»engtn; 
value = (void *) stnng_ptr. 
break: 



15 



} 

else 

{ 



20 



30 



) 



} • 

} 

temp_reterence**. 



switcnffieic type) 

{ 

case collars 
case ftoatmg_pomi 
case iarge_fnteger 
case D:t_type 

large_mteger_item = (unsigned m: •) value 
targe_fnteger_item *= BITMAP INTEGER SIZE 
vaiue = (void •) »arge_integer_nem. 
Preax. 

case negative_float 

large_neg_integer_item s (mf m \ value 
large_neg_mieger_nem BITMAP INTEGER SIZE 
vaiue = ivoia •) iarge_neg_mteger item 
breax. 

case f«eo_stnng 

case year_montn 

case vear_montn_oay 

case medium^mteger 

medium_integer_item « (unsigned snon •) value 

medium jnte9er_ item ♦ = BITMAP_INTEGER_SIZE 

vaiue = ivojO ') medium^ mteger_uem. 

Pre an. 
case cnaracter 
case sm a n_ integer 

sman_mteger_item = (unsigned cnar •) value 

smaii_mieger_item BITMAP INTEGER SIZE 

value = (void •) smaH_mteger item; 

Preax. 
case strmg^type 

strmg_ptr = (unsigned cnar *) value. 

«rtng_ptr (field Jengtn • BITMAP INTEGER SIZE) 

vaiue = ( void •) stnng_ptr; 

Preax. 



35 



) 

BITMAP JNTEGER.SiZE -1. 
lemp_countef*-». 
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r 

Thit reutn* ■ caiiM bvioad_iampt*_eo(«v hudar if • MM* nam* a noi (Mated (NONE aui 

max_coum vaHje_bflmap) - 
Name; 
Twld nam*; 

•nun datatype nekTtype; 
£ f^Zpnscwon; 

unsigned snort WencTrnap 



10 ^« iMm «P Name_bnroap; 

iropneont UU: 

jj. kK D. mm: 
unsigned mt num_prts; 

** ^•_"«g_«tger nem; 

uwgneOwi larye_integer_it»m: 
i*»igned snort •m^oium integer nam, 
wngned cnar imatLinteger item; 
15 unsigned nt •bit.item: 

*»t •«oaung_nem. float num; 

double •oouwe^nem; 

«mQ_vetue{MAXCHARSJ. 



unsigned int "temp_count»r 

w prec_val; 

struct tookup_vaiues •buffer, lamp. -n*ad. 

2 0 temp^DufterlMAXCHARS]. 

count a. i; 

nt f»w.effset 
w mtsstng_ value a 0: 

status « 0. 

temp_counter a vahje_bttmar>->siart 
num^ORi m vaJu*_eitmap~>fUOTt>er_of_biu; 

kk = BITMAP JWTEGER SI2 C 

25 " = ,; 

•or ( tsO: Knum bits' <*» ) 

{ 

if nemp_counier) 
{ 

rffreterence map) 
{ 

if nemp^counter A«) 
{ 

30 |Of (m a 0: m< •reference_map; m~) 

mtssmg_ value s o. 

switchffietd type) 
( 

case small_mtegen 

n (Hunsigned cnar •) value) == MlSSING_$HORT_VAlUE) 
misamo_ vaiue a i 

35 » 

MM 

{ 



CHECK.AaOCATIONtDuti.r.-Rout.n. gMjiiljMKi^viiu,,: 
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OifaefDBG 

towtloeouo.f.W. -%$tt%stt*mtW. -GET.MF.LOOKUP.VALUES'. "BUFFER", mv. •w a ,, 0 e M -) 
••no it 

buffer->too*uo_mqx = ("(( unsigned crw *> vaiu^mn 
b uff ef -» *oo*uo_ itnng o mattocfMAXCHARS+l) 

anoef DBG ~ * •■ 

tonntf(oeD Ug _r. 1 e. T*$U%s«%dU% stft - - G ET_MF_LOOKUP.VALUES-. -BUFFER-»L0OKUP STRING" Mfttr.> IMM jO 
_ itnng. "Mallocad "). 



••nor 



sonnif(eufter., te o kU p_ Bnno buffer-.iooKup.mo,. 

buffef->toOKup_«ax, 

^ buffar^nwt = NUU: ou^iooJwp>»); 



XU casecnaraaer 



f «r •) value, « MISSING_SH 0 RTJ/ALUE) 

mmmg_ value s 1; 



J 

etse 

{ 

count** 



•ifdef OBG 

fpnr 
•endrf 



buffer « (stnja lookup values •) malirv- ~ , k 

* * * Kouttne o»L m LtooKup_ values: buffer): 
fpnml<oeDugJi)e. "Ks\t%iU%dtt%s\n-. -GET_MF_LOOKUP_VALUES-. "BUFFER", buffer TUeltoced ") 

buffer->iookup_indx * r((unsigned cnar •) vatue*m)) 
buffer->iooKUp_stnng = maJioc/MAXCHARS* 1 ) 

CHECK_ALLOCATIO N( ^->Kx,Kup_«tnn 0 .- FtouI ™, ^f.teokup.v.^. tx^r-^ooKup.,^,"); 
^ a S^ ,M4rt%,WW ^ MF "-OOKUP_VALU«-.-BUFFER.>LOOK,.P STRING". Duffer->iooKuo 



•rfoef OBG 



•enorf 

.omtffbuffer^tooKup.,^. ^ c %c %c - oufterotooKuD.ino,. 

Oufrer->ioonuD max. 

bufler^nefl . NULL. ***™*»**Z«*l 

breax. 
sonars 

* (Hunsigneo inf •) value, « MISSING. LARGE. VALUE) 
mis3tng_vaiue = 1. 

else 

( 

count** 



•rfdef OBG 



„ C ^CK.ALLOCATlON(but»er^outine ,e,^ioo^'v^ue,: buffer,: 

C Jr ,COa ° W0 - f,,e ■Grr.MF.LOOKUP.VALUES-. "BUFFER", buler. TKaUocaO; 

• b^er^iowcup^cix = (-((unsigned «nt •> vaiue*m)) 
ftMLnum = (float lDuffer->iooKup max/100 0 
^*'->»oo*ujp_stnng = ma«oc(MAXCHARS*1) 
* DBO CHECK ^°" T,0 ^-^up^ ga^.^up.values: buttery 

^ ft ^T^ ^ ^^^VALUES; -BUFFER.>LOOKU P .STR,G-. butf^ 
*anorf 

spnrtf(buf!ero.iookup^stnng. "%7.2f.%d.%d-, float.num. 

buffer->tookup_indx. 

bufler^nexi « NULL; bu«or^ioo*up>dx); 
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30 



case floattng_pomt 

if (nunsgnrt mt •) value) ea MISSING.LARGE VALUE) 
{ 

rmssmg_va)ue * 1; 

> 

5 I 

3 prec_va» = (mi> pow(10. field _precajon). 

counts. 

buffer s (struct iookuD_vaiues ") mahoc fsaeof(*buffer)). 
iifdef OBG CHECK-A^OCATIONiouffer. "Routine get^mf^iooKup.vaiues Duffer). 
fpnnfloeDuaJiJe. ^*W%ttt%oM%*Vi*. "GET_MF LOOKUP VALUES". "BUFFER", buffer. "Weuoced "). 

buffer-> too*uo_mdx = (*((unstoneo mt •) valuer )). 
float_num = (ftoat)burter->ioo*up_rioji/orec_vai. 
bUfter*>lOOkuo.stnng « ma»oaMAXCHARS*1) 
^ #ifdefDBG CHECK_AU.OCAT!ON(buf!er->iooRup - string."Routin« get_mf^tooKup_va»ues Duffer-»iooKup_strmg**). 

W " " GET - MF - L00 ^-^«-. WFER^OOKUP.STR.NC-. 

eendrf 

spnn8(buffer.»too*up_stnng. '-47 T % a%( r. fieia_pr«e«»n Ooat.num. 

buffer •» loo*up_ mox . 

butter.>ne« * NULL: bu«ef.>iooMip>d*). 

- 3 break; 

case negative_float 

(C(tnt •) value) ** MlSSING_NEG_FLOAT_ VALUE) 
misstng^vatue s 1. 

else 

{ 

prec_va»*0nt)powO0 f.eto precision) 
2 0 coum~ 

buffer = (strua tookuD_vaiues •) manoc isaeoffbuffer)) 
CHECK.ALLOCATJONrouffer Routine ge L mf jocW vatues _ 
Ouffer^iooKup^max«C(„n:-)vaiueTfli) " ourter). 

noat^num = (ftoanDL?fte'-»ioo*up mavprec va 
buftB-.>ioo«uD.suing = maiioc/MAXCHARb-n 

CHECK^UOCAT.O*,**.,..^.,,,^ T, oalin . ^Mo^,^ Durt e„,oo. u0 _s„,n 9 ~ ) . 
sprntffbufler-.w.Koc.stnns T47 r -ac •.e.c.Drecs.on l.oar.num 
2 5 burier->ioonuD_ina.i 

buffer.>ne«t * NULL butter.»iooRup>ai ). 

) 

break; 
case f«ed_strtng 

ff ((-(unsigned snort •) value) == MISSING.MEDIUM, VALUE) 
missing value = 1 

) 

else 

< 

couni** 



CHECK_ALLOCATtON(ouffer. "Routine get_mfjooKu P _ values: buffer). 



eifdef OBG 

^fpnntf(deougJile. ^su%su%dtt%,*- "GET.MF.LOOKUP.VALUES". "BUFFER", buffer. T*eUoceO, 

buffers tookup_mcx = (•({unsigned snort •) vaiue*m)); 
fieW_offset s p^t_fixed_stnng_offset(fieid name); 
35 buffer->iookup_stnng « maltoc/MAXCHARS*1); 

«ifdef OBG CH HCK.AaOCATtON(tKiWer^»oc^.stnng.^^ gaLmf_lookup^va»uei: buffer->tookup^stnng-); 
rpnntf(060UQ_file. -As\t%s\r%d\t%s\n". -GET.MF^LOOKUP.VALUES" "BUFFER->LOOKUP_STR!NG". buffef->tookup 
..stnng. "Maiioced."); 
eendif 

ff (f«ed_f»eW[fiekJ_oftset) faeo _stnng( buff er-> lookup jnd*) is NULL) 
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( 

to^c^er— ioe*up_itnng. fb^j^fieia_e*se!)— fis*«_stnrtf bt*ar^^ 
aonrffl<temp_oufter. 'idX. bufter— ioo*up_nox buffer— »o*up_nax). 
strcatfbuffer— ioo*^_stnng. temp.buffer); 

•P^buffer-ioe^.stnng, "%d.%d.%tf\ buffer— too*up_»iox 

butfer— ico«up_«OX 

c buffer— ttOKUP_«ax). 

D buffer— next m NULL; 

) 

breafc 
case medium_ integer 

rf (Hunsignea snort •) value) s = MISSING.MEDIUM VALUE) 
{ - 

missng_vaJue « 1; 

> 

•IM 

10 < 



35 



buffer « ( struct loo*up_vaHies •) mailoc tSffeoffTxjHer)); 
Wdef DBG CHECK - AL ^OCA'noS(t>u«er.-Rouiine gei_mf_toc*up_vaAies: buffer); 



^^(oeousLfite. ^$M%s\l%cW%»\n-. ^ETj*F_LOOKUP.VALUEr, "BUFFER", buffer. -Maiioced 

bufler-loc*upjndx = ('((unsigned snort •) vaiue*fn)); 
buffer- looKuo^strtng * mauoc/MAXCHARS*1); 

1 c „ CHECK.ALLOCATION(bul»er^toc^.stnng ( -Rouune p*t_mMocM>_values: bu«er-iooiiup_string-) t 

"* evfoef DBG 

tpnrm(oefiufl_fi«a. ^sU%s\l*o\t%,vr. "GET_MF_LOOKUP - VALUES", "BUFFER— LOOKUP STRING", 
buffer— )oofcup_stnng, TtfaltoceO. 
•endif 

buffer— tooiujp_inax); 
buffer— next « NULL; 

20 J 



case brMype 
case iarge_mteger 

((-(unsigned mt •) value) « MISSING. LARGE.VALUE ) 
missing value * t 

) 

•He 

{ 

25 count**. 

**fDBG CHECK_AtLOCATION(bu»ter."Routino get mf «c«up waHi e» eoner) 

JJ"-**.* w . -GET.MP.LOOKUP.VAtUES, "BUFFER". ^oc, 

buffer-tooicuD_inox = n<uns>gneo mt •) va»ue*m)) 
buf!ef.>iooKup__strmg s mailociMAXCHARS*1) 

CHECK.ALLOCATlON(bu«er.»Kx>Kup..tnn Q .^ouine get mf lookup values 
3 0 b ^ ef - >| ookup.sinng-). " 

•rfdef DBG 

tprmoeDugJ^. ^«\t%sU%dM*,VT. -GET.MF.LOOKUP.VALUES- -BUFFER-LOOKUP STRING" buffer- 
■wup.string. "Wailoced.-). 

spnntf(butfer->iooKup_string. -*d.%G.%<r. buher-hx*up_*ujx. 

buffer— tookup.mdx. 

buffer— new * NULL: buffer— *oo*up_mox); 

) 

break; 
case year_month: 
case year_monm_oay 

ff (Hunsigneo snort •) value) «= MISSlNG_MEDtUM_VALUE) 

missing_yaiue = 1 ; 
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) 

•tsa 

{ 

counts; 

buffer s (ttfua too*uo values •) nwioc isaeoff^ufler)) 
tjfdefOBG CHECK .AUOCAT!ON(Duffer.-Rouune get mf kxmup vawes buffer) 

J^T^f-.. -GET^LOOKUP.VALUES, "BUPFER-. buffer. ^ocad 1. 

5 ^tl^-"** " H(uns.gneo shon •> vatue*m)}. 

D^tr.>iookup -11m p r maftoc/MAXCHARS* 1 ) 

CMECK^AUOCATION(buft.r->« ) oKup.ttrTno.-Renjt»na pet^io*^, va|u „ 
«rfdef DBG w*t«r.>iooKup_ 

tpnntf(oet)U8.Wa ( "%W%ttt%dm\n-. -GET_MT_LOOKUP_VALUES*. "BUFFER->LOOKUP_STRING fc . 
bufter->tookup_stnng, "Mauocaa ") 
—rust. 

•p^lbutter^iooiuip.sinno. "*s numDer.to.d^ ( Dufter.>rooku D «*) 

numoer^oaiajouffef^iooKup^ffictt). 

numoer_to_oaie(Oufier-> ©o*up_nax). 

) Mfr->rmxt w NULL: 

} 

brea*. ■ 
case strmg_type 



trfaef DBG 



Sl J ' ,e ^ s ^^^-. -GET^LOOKUP.VALUES-. TJUFFER->LOOKUP_STRING*\ buff^tooimp^tmQ. 
aenarf 

5tmcpytstrmg_ value, ((unsigneo enar •) vame+m), field lengtm 
*nng_vaiue[fieid length] « VT. --"W. 

Jf IstmcmwjtftnLvawe. MISSING.STRING.VALUE. fietd.iength) « 0) 
missing value « 1; 

) 

eise 

{ 

counts*. 

buffer * (struct too*up_ values *) maitoc (screofr Sutler)) 
•rfoef DBG CHECK.ALLOCATlON(Putfer.TRouiine pet.mf.iooKup.vanies: DufteO. 

JZ*?" 10 ***-** -GET.MF.LOOKUP.VALUES-. "BUFFER*, buffer, halloed 

•tmcoyfbufter.>iooKup_Rnng. smng_ value, field lengm) 
bufief->ioo«uo_stnng|fieio_iength} = ■\0' 

tx/fTer->oo«uo_rna3r = nasn_icnanoutfef->iooiiup stnng fieto *engrn> 
spmflaemp_Duf!er. -.%o %<r. bufler^.oo*up_.naI Putter-* oi*up ^ 
•vcaiiouftef^ioofcup.srnng. temp puffer) 
oufief-»nen = NULL 

) 

brean 
case Dao_oaia_ryoe 
raiumfO). 
area*. 

) 

if (»mtsstng_veiue) 

{ 

r mctuoe tna with the structure */ 
tfOoonup buffer es NULL) 
( 

tookup_buffer « buffer. 
too*up_vei_tad c buffer 

) 

else 

{ 

S* check where to men this V 
tamp ■ «oonup_buffer. 
head * ioo*up"bufler, 
while <iemp ««"nuLL) 
{ 

if (count >c max_eount) 
ratum(i). 
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* (fi«Wjyp» «■ stnnfljype) 

if ((status » «rcmp<bufter-»ie^up_stnng temp-^too*uo_string)) < 
it (count < max.count) 

^ if (temp =s need) 

{ 

bufter.»ne:<l e ioo*UD_Duffer, 
toonup DLftter « ouften 

} 

e*M 

{ 

buffer->next ■ lemo. 
heao->ner! a oufter 

10 ) 

H ((count* i ) s= max_eount ) 
retump), 



} 

else 



15 



} 

else 

{ 

rf (status =s 0) 



break: 



remmd); 



tfifdef DBG " Coum * 
fprmtfioeoug file. "•As\t%stt%d\t%s\r. - "GET MP i Drums 

K „ _ - - L00KUP -. VALUES "BUPPeR-> LOOKUP STRING* 

buffer->iooKup_swng. "Freea"} eendff " ourrcK »luukuk_j> i.ninu 

2 C freetbuffer.>ioo*uo_stmgj. 
•rfdef DBG buf1ef->iooKup_stnng = NULL. 

^maeoug.file. -GET^loDKU^VALUES-. -BUFFER butter. Tree.-). 



25 



) 

} 



treef buffer), 
buffer r NULL. 
breex. 



) 

eise 

{ 



ff (buffar^iookuo^inox < iemp~>Kx>Kup_inox) 



if {count < max count) 

{ 

if (temp == head) 

30 { 



bufftr->na*i 2 tookup_ buffer. 
looKup^ouftar s oufter 

) 

eisa 

{ 

buffer*>next « temp; 
heao-*»next s Puffer, 

) 



35 * <feoum*l ) .r ma»_eount) 
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returnfi); 



retum(1). 

) 



if (buff«r-»looKup.Mx » t«mp->iootaip nax) 

{ 



MM DBG 
■enon 

10 treefbuffer.*iookup_stnrig); 

puf!er->too*up itnog s NULL 

«W8f DBG 

tpmmcmdoQL^. **«tt%s\t%du%s\n", ^ET_MF_LOOKUP_VALUES". "BUFFER", buffer. Treed 1. 

OOftdlf 

freefbuffer); 
buffer « NULL: 
break: 

) 

heed = temp; 
tamp = temp->next; 

> 

if (temp w NULL) 

{ 

if (count < m«x_count) 

{ 

bokuo_val_taik*ne*t = buffer. 
2 0 toomjp.vaf tad » puffer. 

t ({coura*l)*smax count) 
retum(i); 



retum(1); 



} 

) 

} 



> 



ewrtenffteic type) 
{ 

case collars 
case ftoa!ing_pomt 
case iarge_tmeger 
case Ort_type 

3 0 *srge_mteoer_item * (unsigned ml •) value 

iarge_mteger_item *e "referen c e map. 
vatue = (void •) targe_integef_nem. 
preax. 
case oegatrve_float: 

*»rge_neg_wegerjtem « (mt •) value: 
iaro *- n *fl_ ,n teger_ftBm "reference map; 
value « (void •) iM^jnmgjn^gmjmm: 



case fixed.stnny: 

3 5 case yeer^monm: 

case year_montn_eay: 
case meojum_eitegen 

meamm_integer_item » (unsigned snort *) value; 

meQium_fftteger_item •reference^map; 

value ■ (void ") medium_nteger_nern. 

break: 
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20 



case enaracter. 
case smaii_mtegcr 

smaM_mteger_nem » (unsigned char •) value 

smali_mteger_rtem * a T*eranee mac 
value * (void •) smail_nteger item 
break; 
case strmg_type: 

str»ig_ptr = (unsigned cnar •) value 
strmg^ir Crelerence.map • new lengtn) 
vaiue e t votd •) stnng_ptr " 



j DreaK; 
reference mac*** 

} 

10 else 

referenee_map*+. 

i/ <c = 1: 

else 

{ 

temp_counter*"». 

15 = BfTMAP_»NTEGEP:_SfZE. • 

) 

r temp_counter o. Dump past wnpie word V 
oise 

( 

tor (11.0: H<BITMAPJNTEGER_SIZE; l>~) 



switcnff^ifl tyDe) 

{ 



dollars; 
ease noaiing^point 
case larpe_ nteger 
case on_rype 

terge_mteger_nBm =Munsigneo mt •) value 
iaroe.aiteger^nem *= -reference map 
vaiue = (void •) ia rg©_ mi eger RBfn 

<d 3 case negat/ve^noai 

iarge^neg^mieger^iiem = (mt •) value 
lerge_r>eg_inreger_item ♦» -reference map 
veiue * (votf •) iarge.neg_ im e 9er n ^ 
DrnaK 

case fured^smng 

case year_monm 

case year_montn_day 

case meomm^mteger 

3 0 medwm_inieg6r_nem = <w»igned short •) value 

meaium_inieger_«em ♦* -reference map 
vaiue = \vo*c m \ meo:um_rnteg e r nem 
Orea*. ~ 

case cnaraaer 
case smau^mteger 

smaM_inieger_item e (unsigned char •) value 
small_mteger_nem ♦= -reference map 
va^ue « ( void •) sma«_rnteger_item'; 

3 5 case stnnQjype- 

*nng_ptr * (unsigned char •) value 
stnng^pir (-reference.map • field tenon) 

value = (void •) stnng.ptr. ' 
break. 
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) 



) 

i BITMAP^INTEGER^SIZE -1; 
l*np_cognt»r**: 

} 

> 

r 1 

5 Th» routne smite/ to me tod_too*ujp_nrormat)on. The d if tr trm bang ioad_iookup_ntormat*n 
fttndiw a sngie field Otstn&uuon, thts nanotei multiple field eastntxjtcrt It builds me"io©Kuo tao*e 
finned list). For a dwnoution. a tab* nama (filename) or NONE can cm soeofiec. t a lab* nama is 
soecrfied tha antnas of mat file are omid as tinned est However, for tna nDNE cast. pat_tooxup_ 
^vafciaa or pet_mf_looiuip values is caued to oat tna values and ma looxup^tawe a man MIL 

j~mtr^^ ..«.«u«, y .«.«is*z.a J «. 
^ q ttnxt oistnoution^tyDa ~root_noda: 

_nodi 
we; 

nabie_name: 
value: 

c ** r Tiaid.nama: 
anum oatajype fwks type; 



struct sosftjon^typo ""root x 

struct iaoei_type *"iait "* ~ 



nt 

rt field.iengtn; 
w sub_set 

15 unsigned nt "lemp^referenca. " 

rt mf_case flag: 

101 offset 

^_ejus_count; 
*y_axis_count: 
•t.axis^count; 



sit 

mt 

sit 



struct bitmap •reference bitmap- 

{ * 
FILE It: 
2 0 cftar *mod_but»er. nemo string file otr. 

BW OUfferfMAXCMARSl 
strua lookup_veiues nemp_ioo*up_Dufter. 
struct lookup jawe_hst_type Too*uojsampie_e©unt tab* 
strua ioo*upjaoie_type tempjawe. 

t.tow nign.proieaon. arfterence=10 
cnar ^emp_tabte_name. 
unsigned snort °referenee_map. 

if (tooKup^taoie «* NULL) 

25 < 

toohup.taoie • fitruct ioo*up_tawe_iistjyDe •) matioc esixeoff-iooKuo taote)) 
— . r.n^ CHECK.ALLO CATlONfloosup.taoia .^out«e ned.sampie count neaoer toow ta«e~) 

tpHnBiOBDOB.**.. «>«t%»UHd\«*wn-. TOAD_SAMPlE_COUNT_HEADER" "LOOKUP TABLE", tootup tana 
aendrf 

for(i«0: KMAXFIELOS. #♦♦) 
lookijp_iabie^ioo*up jistji) * NULL. 

30 r eneck if taoie name exists */ 
if (tabte_name *« NULL) 
retum(O). 

eise 

{ 

tempjawe^name « stnoupoer(tabie w name): 

if <stmempuemp_taoie_name. TOOKUP_DlftNONE.DAT 20) « 0) 

r for tna OTHER case 7 
if (z_axisjength < 5) 
5 z_axis_*engm * 5. 

if ly_ajtis_»ength < 5) 

y_axis Jengtn = 5 t 
if (x_axis_lengtri % 5) 

x_axisjangth = 5; r handle tor tna OTHER Case •/ 

if (lookup taoie ** NULL) 
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if cz_ax!S_coum 0) 

~creai6_z_iaoie = TRUE. 

else 

if (^_aiis_count >« 0) 

ereate^_tae»e = TRUE, 
else 

15 iff* axis_count >» 0) 

~creaie_x jabie = TRUE. 

max_ccunt = 0. 

r svp - assummg tnat we com want to pnnt larger tnan 10 values m tne x*a*tf 7 

if (create z table) 

' max_count = MAX_Z_AXlS_COUNT. 

else 

10 d (ereate_yjabie) 

max_count = MAX_Y_AXIS_COUNT. 

eise 

if (create z table) 

" max.count * MAX_X_AXIS_COUNT. 

r 

DONT NEED THIS 
if (max_couni == 0) 

15 { rf (mast er couni > MAX LOOKUP_COUNT_VALUE) 

" ma x_coun7 = MAX_LOOKUP_COUNT_VALUE, 

else 

max_couni = master_eount. 



25 



) 



r get iookup values from trie database 7 

r mf_casejiag is set rf we are oomg me ourcnase distribution on a non-purcnase bitmap / 
2 q r or a proouct oistrtoution on a non-proouct bitmap 7 

rf (mf_case Jlag) 

' rf (strnemp<field_name. ~PUR".3) == 0) 

reterence_map = pur01_map. 
else 

ieference_map = prdOl.map; 

get mf lookup vatues(vaJue. field.name fmid .type, field j>reas«on, ^j"^* 

mterence_map max.count, reterence.bitmapj. 



ge(_lookup_vatues(vaiue. fiekJ_name. fie»d_rype. f*eld_preasion. fieW_*ength. sub^set. 

temp_reterence. max_count. reterence_oitmap); 



T include OTHER as tne iast selection 7 

temD^tookup.bufter = (struct tookup_vaiues *) melioc i saeof nemp_tookup_buff er)). 
CHECK_ALLOCATION(temp_lookup^bUffer."Routine toad_sampie_countjieeoer. temp_tookup_buf!er): 

erfdef DBG 

3 0 tpmtfldebugjile. ^s\l%sU%dM%s\n-. TOAD_SAMPLE_COUNT_HEADER- *TEMP_LOOKUP_BUFFER*. temp. 

iookup butter. "Maiiocced 
•endif 

temp.lookuo.butler^iooRup.indx = MISS ING_LARGE_ VALUE: 
temp jooKUP~buffer-> lookup string « maitoc/ MAX CHARS ♦ 1 ). 
CHECK - AU-OCATION(tempJ^kup.butfer->looiujp.string."Routine K>aa_sampie_count_neader: temp_tookup_ 

• buffef->wokuo_itnng-). 
i ifdef DBG 

fprmtftoebugjile. -%s\t%s\i%d\t%s\n". -LOAD_SAMPLE_COUWT_HEADER-. *TEMP_LOOKUP_BUFFER 

3 5 ->LOOKUP_STR!NG-. 

temp_kx)kup_bLrfler->tookup - sirm( 
sendtf 

spnntf(temp_k)OKup_buffer^iookup_stnng. "%s.%d.%cT. "OTHER". 
0 ~ 

temp joo*up_bu*er-> lookup jndx); 
tempjookup_butler->nejrt = NULL 

r join witn existing structure 7 
if (lookuo.butfer == NULL) 

* iookup butler » temo_tookuD_buffer 

ioo*up~vai_taii = temp_iookup_ouf!er. 
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eise 

«% 

toOuip.valja.u.nM, B , W np_ lookup ^ 
} •ookup_« Ltai i = temp_ioc*up_bufler 

»«™o Jookup_t>uffer = lookuD.bufler 
j * (iemp_ioonop_Dut(0r >= NULL) 

toaa_samp»_count_oata(root nooe.root 2 nooa ta.i nm. 1.-. _ . ^ 

Offset " „;- 2 £^ Ul, - nMe - ,em P- loo ' w »-»>"«w-»'OOKup.sif.n9 'wW type 
orT *oi.x ax« couni.y axis count z axis eounii " 

■emojookup^buffer = lempjookup buWeT^next ^ " h 

} 

^ free structures •/ 
free( iemp_tao.e_name ). 
- q temp_taoie_name = NULL; 
retumd); 

} 

r free structures, ff it is not a NONE condition •/ 
free ( tern p_tab»e_name). 
temp_table_name = NULL. 

} 

2 5 fn°c_buffer = tab»e_name. 

jf ((fi»e^ir=strcnr(taoie_narne. •-')) i s NULL) 

temp_stnng = get.strmg(&m 0 o buffer vj 
sscanf ( temp_stnng. "%d". &iow) 
free(temp^stnng). 
temp_stnng = NULL, 
sscanf (moa_Du?te* -*AC &mgn} 
rf (fint)(higrvarflerencei <= 1) 
20 difference = 1. 

ff ((proieaion= ( mt)(nigrvarfterence)) <zg) 
projection** 

for (i=tow.i<projeciion 
{ 

mntf.ftuf.tr % aU<r l0w ,ow. ( ,ow-crfl e rence), 

»oaa.s.m DI e.coun L oatatroo L nooe roo L ^noo. .a.-.noae butler „. 10Jyp< , 

low ♦= (difference. 1 ; ° t **' *- a,,s -«>u n ' y_a».»_co u ni.r_aiis. count). 

25 ) 
) 

else 

{ 

1 ((« = fopen< table, -ame "r» •= NULL) 

p"e (Igeisibuffer MAXCHARS. ff) 1. NULL) 

3 o «-- a «a (r oo,.„oae,oa L2 .noaa,a7nooe.p u „e r „e, 0 ^ 

, 0 " Se ' , - a " $ - COum ^ a *«-«'un,. 2 .a Jtls _ counlJ 

) 

else 

{ 

^ •rror. n ana*r(F,LE.NOT.OPEN. ERROR. NO.STATUS. tabto.name), 

35 if (fdose(ff) EOF) 

J -"J-™* IFILE_NOT_CLOSE. ERROR. NONSTATUS. .aOle.name). 
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H (*r_* u ».CDur«>sO) 



* Cy_exu_counr>«0) 
5 ^ 0_«*»_CQunt>~: 

f"*_«»s_couni>«->; 
temp_tawe « (struct iooicup_tsbie_rype •) maiioc t woorrnamn t a »^- 

J^^f-.-. T.OAD_SAMPLE_COUNT_HEADER". -TEMP.TABLE-. ^p.^. , 

■ twnp_iabto->mxi ■ NULL; 

10 

"LOAD_SAMPLE_COUNT_HEADEfr, "TEMP_TABlE->v/ALUE". ,«np.u^_ 
SOTxpyftemp_taWe->vBKje. "OTHER", 5); 
tefnpjab)e->vatue{5) « "NO": 
temp_tao»e-»ow » LOW_ VALUE: 
^ ^ tefnp_taDJe->hiori « HJGH_VALUE; 

- ^ nsen_santpie_eount_f>eaoeniempjaoie^aiije^ 

offset. *x_axis_count. "y_axis_eount. *z_ax isocount). 

tab*e_tad->next = temo.taoie: 
uow_tan e temp_ta£Ha. 

) 

MM 

< 

2 0 pnntf ("Error occurred wnrte creating tne tooKuo table \n"). 

retum(O): 

) 



r 

Hot using m» routine, r can be oeieteo 

ff a taeie name is not soeofteo (NONE casaMora AitmN^r^ ^ 

25 « set Th» routine cnecw to see Ttnat?^« ^ lr ^^« ^ vanao* icx.aie^tawe. . ) 

•/ *»nab*e a set Oasea on tne lieio offset, ano return* a TRUE or FALSE 

m pet_tab*e_ereetion_status (offset) 
«t onset, 

{ 

inttabJe_siatus • FALSE. 

switch! offset) 
{ 

3 0 0 • * <ereata_i_tab*) 

tab»e_status « TRUE 

break. 

case 1 : tf (creaie_yjab*e) 

tab*e_status = TRUE. 

break: 

case 2 : if (create jcjabie) 

UWe_ttatus * TRUE. 

^ break: 

3 5 retunvuwe^status); 
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r 

UTtZZZ Z^^XTcl*" 0THER M " ^ ■ rtB0Mm ' m *** ■ «M » w« to 

put tne new vaiue n trw OTHER DooceL 

« pet_otner_coumjtemp tattle) 
struct ioc*u^_ta»ejype tiM; 

{ 

5 ntftmui.a, 

pile ftempjaoie Ms NULL) 

if ((stmcrno(tempjable->vaJue f "OTHER*. 5)) «s 0) 
retum<status), 

status **; 

^ temp_taoi© * tomp^ta b le >>r m*L 

return* status). 



10 



15 



r 

Every vatue read from the database is comMrtd to the table of values (Inked fast) If a value is found the counter value 
is passed Dae*, signityng tne oosnton of tne vaiue. If tna vatue ts not found out less man me first uoie entry, the 
posnon of tna OTHER Ductal is passed back. 



Soeaat_Case: For ourcnase or product distributor (X2 or X3) on a customer Query, for every bit set on tne customs 

bitmap all ourenases tor mat customer a being captured The "mcr vatues goes from 0 to 
^ <ne map^count value tor thai customer to capture tne scenario of ail purchases. 

nt pe^buckm.numbertsearcn^vaiue. toc*ujpjHje*etjabie, offset field name, field type, field length tm 

root_nooe) ~ " 

«id •search_vehje; 
struct lookup jabiejype nookup_bucket_tao*e; 
« offset. 



*fie»d_name; 

enum cata_type f«eid~iype. 
20 nt fceidjengtrt; 



max_vatue_eount 



nt 

struct distribution type -roci nooe. 

{ 

struct lookup_tabie_type tarn potable. 

pos* 0. 

mI status: 

mt 

mt count«0. 
25 ^ tab*e_staius=FALSE. 

temp_tab*e * noohup_buc*et_tat>ie. 

if ((offset *= 0) && (create x table)) 

{ 

tabie.status » TRUE. 

max_vaiue_couni a MAX X AXIS COUNT 
) * " 

30 •«■• 

{ 

if ((offset 1) && <ereaie_y table)} 
{ 

tawe_status = TRUE. 

max_vaiue_eount = MAX Y AXIS COUNT 
) - - - . 

eise 

{ 

if ((offset « 2) && <create_z_tab*e)) 

35 { 
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10 



15 



else 



ttbte_sta!us ■ TRUE; 

max_vatue_count = MAX_Z_AX!S_ COUNT; 



if (oftsei 8s 0) 
( 

if ( max_cci_ vaiue_count == 0) 
majt_vaiue_count = 

max_coi_vaiue_count = get_otner_couni{ temp jaDte j . 
^ Ti«x_value^courrt ■ max_coi_vaiue count; 

eise 



( 



if (offset S3 1) 

{ 



) 

else 

{ 



) 



if (max_row_vatue_count == 0) 
max_vaiue_count = 

max_row_vaiue_count = get_etner_coun«iefnp table) 
else " 

max_value_count * max_row_vaiue_count 



if (offset ss 2) 

( 

if (max_page_vaiue_ count « 0) 
max_vaiue_ count = 

ma*_pape_vaJue_count x gei_omer_comt(temp jaoie). 

eise 

ma»_vak»_couni » max_page_»a)ue_count. 



20 



30 



) 

r ''^"la/uT-^tr ,aB ' eS a ^ m ^y <••"• ~m. o. NONE, V 

iaDie_staius - geMaDie_creaiion_statusi onset). •/ ; 

if nookup_OucxeMaoie == NULL) 
retumM) 

while <temp table »= NULL) 
{ 

r chac* rl vaiue e»i$ts •/ 
switcn(fieic_typej 



{ 



case dollars 
case fioatmg_pomt 
case iarge_tmeoer 
case o*t_type 



•f n<unstgneo mi •) searcn.vaiue ♦ ma) temp_tao, e .->»ow) 



35 
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15 



25 



{ 

HI ( taoie_status ) 

m»n(majr_vaiue_cDunt): 



5 ^ break; 

if ( fKunaionad •) $earm_vaiu» ♦ ncr) <= ttmp tab**->ntgn) ) 
retumipos); " v M 

break; 
casa naoativa Jloat 

if C((int •) saaren_vaiua ♦ ma) < tempjsbfe^tow) 

if ( taWe_$tatu$ ) 

in retum<max_vstue count); 

w els* 



} 

* ( ttfwt •) aaarcn_vaJua ♦ mer)< s tamp tatua-»*Qh) ) 

braafc: 
case smafi_mteoer: 

jf C((unsiorwj char •) searcnvaiue ♦ mcr) < lempjaoia^iow) 

ff(tat»a_stahjs) 

retum(maxvatua count); 

•isa 



) 

rS^T Char * W > ~ ^-H~hajh) ) 

break- 
case fued_stnnQ 
2 0 case madtum_meQer 

caaa yeer_montn 
case year_montn_eay 

Jf ('((unsignao snort •) searen.vaiue ♦ w , < iemp_, a r>!e->low) 

if ( taoie_staius ) 

retum(maz value count ) 
else " ~ ,1 

orea*. 

" 'SSST snon *' saarB, - va,ue * -» - -«p.— ^oni , 

break 
casa smng_type 

s« lu vro°: s,,,un$,9r,eo ^ ■» • «n tengm , 

rctum(pos) 

else 

if ((status < 0) && tat>ie_status) 
30 br ^ a ^ «tum<ma*_value fc count); 

case oao_ostajype 
braaK. 

) 

pos** 



) 

35 retum(pos.l). 
) 



temp_taoie » temp_taD»e->next. 
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■ L ^ w ■ w^w^mrujuu dmnoutjon ONLY IP a pmiMnaua curv m tv- ■ 

mow* tn* row, cofcann, ana omn naaftw* »m ■ mmm. •»^_T_Tr*r^^^^ ouefy was found. The reutme 



r 

AM* 

SKXZTIS^^ nama.rak) ^ 

--TEITw^ nM, -WOin.«uD_set Mmp.refmnea. " - w 



NaJuefl; 

wua d:stributJon_type -root node 
•truavatue_node ntujioaa; 

fmto namtft 
•num datijype fi«Jd jypeQ; 
mt 



10 

uns*ned rt ^djerigtha 
unsigned nt 

unsigned mt ^mmpjrBfrmncmQ: 

num fields; 

struct tootajp_tabtoJistjypt lookup table: " 
mid bitmap Neajejmmap; 

15 rt raw.coJumn.posmon; 

unsigned mt k: 

unsigned mt mer*0: 

unsigned™ jj, kk. 0. mm; 

unsigned mi num_oiis: 

unsigned mt meremom; 

j^Lnn^t* - -| » f O«.neg_ ff «ogs^iiem; 

unsigned mt ■Uroe_m!eoer_riem; 
unsigned snort "medium integer item 
unsigned enar ImaJi^tnTeger nim 
<ZO unsigned mt ■bit_nem; 

teat •noatmQ_item; 

double •douoie.ftem. 

enar •«nng_vaJue. 

enar 'strmgjnr 

unsigned mt lemp_ counter 

ttrua o«jnoution_typ* •temp_root_nooe: 

temD_root_node = •root_nooe 
2 5 temp_couroer c value_Drrmao->sian: 

num_bns » vaiue_onmV>^numDer_cf_bits; 

kk « BITMAP INTEGER SIZE 
'0. 



tor { 1=0: i<num otts; ) 
{ 

ifnemp_cDunter) 

30 ( 

if Oemp_eounter & jj) 



* (loc ^-^^»ookup.l«tr2j i e NULL) 



eise 
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10 



30 



position s 0. 

rc^»geLbuckeLnumt>er(vaiue[lJ.&iooKuo.tai>^ 

fiewjype|i)fieio »ngth|l) mcT root nooei 
column = oet^oucxe^numDenvaiiiefO).&toOH W .iaD^>iooiuj^ttst|0).0 fteta nameW 

} ,em P.^-na^>zoo«rofijDosrtton}.>yD05rtron(row}^ ioosrtiort|eoiumn}^ota.~ 

} 

for (k»o.k«num fietos.k**) 
{ 

increment = 1 ; 
if <suO_set|k)) 
if (temp_referencefk) 

temp_reference(k}~; 

Ma 

increment = 0: 



if (increment) 

{ 

swrtcn(fiel0_typefkj) 
{ 

case dollars 
case floating-point; 
case iarge_iniegen 
15 case D«t_type 

iarge_mteger_iiem = (unsigned wt •) valuelk] 

»arge_integer_rtem~; 

vaiue(k) s , V0I0 ^ rtem 

Dreak. ■ * • 

case negative.fioa! 

large_neg_rmeger_ftem = (nt •) vatuefk}. 
Iarge_neg_integer_ftem^: 
vaiuefk] = (voia-) iarge_neg_integer nem 
break. ~ 
2 0 case fixeo_stnng 

case year_montn 
case year_montn oay 
case meowm^Bneger 

med.um_inieger_rtem * <un,»gned snort •) V aiue|k] 
meoium^witeger nem— 1 J * 

vatuefk] * (voifl ') medium integer nem 
oreaK. 

~ - case cnaraaer 

- "* case smau_ integer 

smaii_.nteger_fiem * (unsigned crur •) vaiuefk] 

sman_ mtegef_item** 

vaiue(k) s ( vok3 ") small integer nem 

case stnng^type 

stnnp^ptr * (unsigned cnar •) vatuefk] 
stnng_ptr ♦* field tengtnjk) 
vaiuefkj « (void ^stnngjrtr 

) 



} 



) 

if(-*k) 

else 

{ 

temp_ counter—; 
If a V 

35 } kk = BrTMAPJNTEGER. 

} 
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r nemp_eounter w o. bump past wnote word 7 
else 

{ 

for (**0*«num Jietas:k~) 
{ 

if (sub setfk]) 

{ 

if Hemp^referencefk]) 

{ 



jor(»r0.mmri; II<BITMAP_INTEGER_S1ZE. Krnmc<n) 



rf (temp_reterence(k) & mm) 

swttcn(fieid.type[kj) 
( 

n case dollars: 

case iarge_miegen 
case onjype 

*arge_mteger_«em = (unsigned tnt *) vaiuefk] 
large^mieoer^item**; 

vaiuefk] = <void •) iarge_tnteger nam 
break: 
case negative_noat 

terge.neg_mteger_rtem = (mi •) vaiuefk] 
15 iarpe_neg_mieger_nem«^; 

vaiuefk) = (votd ') iarge.neg tnteger nam 

break: 
case fuced_strmg 
case year_montn 
case year_montn_oay 
case meeium_tnteger 

rnea«um_integer_nem * {U nstgneo $ no n •) vaiuefk] 

~ n vatuel*) = (vo«o *) meoium mtege' nem 

case cnaraaer 
case smaii_mteger 

smaii_imeger_nem r (unsignec cna* •) vajueikj 
sman^mteger^rtem** 

vaiue(k) s ,vo»c •) smai^rntegef_rtem 
break 

Case $trri?g_tyrj> e 

stnng^ptr = lunstgneo cna" a \ varueU] 

vaiueUj = jvojc •rstrm;_p:.' 
braa* 

J 

} 

} 

) 

temp_reterence|fc>*. 

else 

< 

switcnffiatd rypefk)) 

{ 

case couar& 
case fioaung_potnt 
case iarge_ integer 
case on_type 

iarga_mteger_rtem s (unsigned mt •) vaiuefk) 
large_integer_item *s BITMAP INTEGER SIZE 
vaiue(k)nfvoid*)large.mtegerrtem " 



30 



35 



case negatfvejloat: 

»ar©e_neg_imeger_item • (mt •) vaiuefk] 
* af P*_neg_rnteger_rtem BITMAP INTEGER SIZE 
vaiuefk) « < void •) larg^neg^tmegeT nem; " 
break: 

case fwed_stnng- 

case year_montn: 
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ye«r_monmj 

"••Qui t^ntoger. 

medium. nteger_tem ■ (unsigneo mort •) vatuefkl: 
medajm_nteger_iiem *■ BfTMAP INTEGER SIZE. 
va*jo(k) ■ (void •) mMun.iDtotT um; 



•mali_nteger. 

MirmWjm^rjtmn ■ (unsigned cnar •) vakiefk] 
smeil_nteger_iiem BITMAP JWTEGER SIZE: 
veiuefk) ■ <vwd •) sma^ntegeT item; 



ease stnngjype: 

10 itnoc^ptr « (unsigned cnar ») vaiuefkj; 

•mnLptr (fie»d_iengtftf kj * BITMAP JNTEGER SIZE). 

v«m*{kj * (void •) «nnjLptr, 

break: 

) 

J 

) 

»♦« BfTMAPJNTEGER.SIZE -1; 
temp_coumef'**; 

« . 1 

retumfToot node); 

) 
r 

^ numJi^ds.iookup^UDJe.vaiue^Dami) 

struct datraxAionjype -root nooe. * Value U 
struct vaJue_nooe na t i 



20 



ill _ - 

num ftaios 

struct »ookuD_!awe_list jype loonuo taoie * 
struct Oftmap 'vaiue.ownaD. 



nt row.coiumn.posnion. 
unsignedmt y. k. m; 

unsigned nt no«0. 

30 unsigned nt jj. kk. R. mm; 

unsigned nt num_d«s : 

** Tanje.neg^nteger item; 

unsigned nt Targe^integer^item. 
unsigned snort *meoium integer item 
unsigned cnar 'small inTeger item 
unsigneo nt ^it_item: 
ftoat "Hoeing nam; 

double •oouD»e_nem, 
cn>r *stnng_vaiue. 
3 5 *ttnng_ptr; 

unsigneo nt temp_ counter 

stnja datnoution^type lemp_root^nooe; 
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temp_nxtf_nooe » *root nooe 

nwn.to « value_bnmapo>numDer_of jms: 
to = BmAAPjKTSGER SIZE 
current_pos ■ 0; 
tor ( isO; j<num oas* > 

* (t»mp counter) 
{ 

* preference map) 
{ 

tf Hemp_counter A n) 

{ 



for (mcr s 0. mer < *referenca_mjp; 
» (tootajp_ut»»»iookup_li«tf2J NUU) 

field jype[1).fieid lengihM] «r7er mai non^ 
imtib m«, f *W.tyoefO] fteid_ienom(0) mer root noo-f 

else 

Dosrtion a o ^ 
20 con™ . «>«^^3^^'XJl«r. ™_noo., 

) 

) 

tor <k=0.*«num f«ios r — ) 
{ 

25 *wncruf»eio_tyDe[kl) 

case collars 
case float mg_pomt 
case iarge_ integer 
case Orr_rype 

.'•rge^eoe^nem * '""signed « •) vaJuefkl 
*T,«_™eger_nem Te<.rence map 

«*M"(«flHi(Bi tt « l g lr item' ' 
break. 

3 0 case negative^ fioat 

• laf 9 e - r *«9_«nieger_item = imt •) vatuefk] 
ttrDe_neg_mteger_item ♦= -reference map 
vauiefk) * (void •) large.neajmeger rTem ' 
breaK: " 
case f«ed_stnng: 
case yearjmorwh: 
case year^monm^aay: 
case meoium_mteger 

3 5 medjum_nteger_t!em » (unsigned snort •) vaJuejkV 

n*eQXim_rHeper_*em ♦« ^reference map 
vwuef k) » (vd« •) meOJum tmeger R 0m . 
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break; 



case smatt_mteoer: 

smali_tn]eoer_i!em * (unsigned char •) vaiuef kl 
smai)_tnteper_nem * = *refefoiKje map; 
vamefk} = (void •) small_riteger_nem; 

case stnng_type: 

«tnng_ptr « (unicned char •) vaiuefk); 
wmsLPtr *= (^erence_map • field tongthfkj). 
vaiuefk) c (void •) itnncLptr. 
break; 

} 

) 

reference map**' 

} 

10 else 

referenee_map**; 

else 

{ 

temp counters; 

15 k* = BfTMAP_INTEGER_SlZE. 

) 

r *lemp_counter == 0. bump past whole word */ 
else 

i 

for (tt=0; II < BITMAP INTEGER SIZE »~0 

{ . - -i 

tor (k=0 k<num folds 
{ 

20 swftcnfftetd type(k)) 

{ 

case cottars: 
case ftoattnQ_point 
case iarge_tnteger 
case oit_type 

targe_inteo/er_item = (unsigned ir.t *\ vaiuefk) 

larg«_mteger_f!em •= Veierenc«_mao 

value;* | = (voifl •) iarge_mieoe'_irem 

^ ~ case negatrve_floai 

large_neg_mte9©r_ftem = ( mt •> vakjefk] 

iarge_n©g_mieger_item *r *reterenee_map. 

vaiueU) = i void •) iarge_neg_inieger_item 

brean. 
case fueo_stnng 
case yeer_montn 
case year_montn_oay 
case meoium^inteoer 
3 0 medium_integerjtem = (unsigned snort •) vamejk] 

mea»um_mteger_ item *= •reterence map. 

vahjefk] = (void •) meOium_mteger_item. 

break, 
case character 
case smalt_mteger. 

smaM_mteger_item = (unsigned char •) vaiuefk); 

smaJi_mteger_rtem ♦= *reference_map: 

vaiuefk] a < void •) smaiunteger^rtem; 

break; 

J S case stnngjype: 

stnng_ptr = (unsigned char •> vaiue(k): 
svmg_ptr (fieid_wngm(kj • -reference.map); 
vaiuefk) » (void •) stnng_ptr 
break. 
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) 



) 

reterenee.m-p**: 

) 

t *» BITMAP_INTEGER_SIZE -1. 
temp counter** 

) 

) 

retum(*root nooe): 



r 

Tha routine a cnminty used to count bits eet tor a smote tame rtteger 
Not Deng current usee. 

10 7 

int eount_rHjmber_oT_bas(bii_ array) 
int trt^anay, 

{ 

rt num_count E 0; 



25 tit 



rtaa; 
>vit; 

if( vataa s T>rt array) 

nurn_count *- br._counts(val.bb[On 
num.count ♦* brt_counts(vai.bb(1]J 
num_eount *« bn_counts|vai.bbf2U 
^ num_ count ♦« brt_countsjvai.bb(3j]; 

raiurn(nurn_courtt); 

r 

Dtstnbution_iype variable needs to out DacK ait of tna temporary Duffers 
This routine frees the oistnouuon struaure nanoied by X2 or X3 distnoution. 

void free_distnbuton_type( d*tr_var. x_ajra_count y_axo count z axis count ) 
itrua oistnouuon^type *oistr_var; 

x_axis_count 
y_axo_count; 

^ z axis count 

{ 

struct distnbution_type •temp; 

ttrue laoei.type label jrar. laoel.van ; 



struct zposttion 
strua yposmon *ypos 
struct value node 



3 0 strua vaiue_nooe "vnptr. Nnptrl; 

nt i. position, row. column. 

temp = Oistr_var, 

for ( 1=0; kMAXFIEIDS: v~ ) 
{ 

if ( (taoei^var = temp^fiettsji]) != NULL ) 
{ 

wfirte( label var != NULL ) 
5 { 
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•MrfOBC l-L— ««. NULL 

m«taJR_te. ^^l\rtWU%.\n-. TR£E_ 0B7WBUT I0N-. "LABEL VAL*. taMl wr. 

toei_var * noei_vart ; 

) 

r cone won laoeMype buffer pointers one* first null is found •/ 



•ISA 

) 



10 



for ( posmonaO; position c z_ajus_coum; posaort^ ) 

if ( (zpos * mmp-»zoo»nionjpo«ttJonl) Nr NULL ) 

for ( rowro: row < y_ai«_coum; row** ) 
{ 

jf ( (ypos * t^l^^zoosrt^poMwj-^ypoMionjrow]) NULL ) 
for ( coiumn»0. column * t_mxt s_coum: cotumm^ ) 



15 



* ( (xpos = t^P^zposn»or*iDo*tionr*^ »-= NULL ) 

•tfcefDBG 

, xpos, *FroeO.^^ 

fTM ( XPOS ) 



rf ( vrJ^T^"^ W,tt ^ r ^* WM ^®^ n ) * NULL 
{ 



< vnptr »s NULL ) 
vnptrt s vnotr.»new_vaiue. 

•rfdef DBG vnptr.>na«_vaiue = NULL 

2 o o. OUSL fi... ^.n^, "PREE_D1STRIBUTI0M", "VNPTR". ^ -- reM , 



fro* f vnptr ). 
vnpy = vnpiri 

) 



25 



) 

eise 
break. 

) 

} 

else 
break. 



30 



tifoef OBG 

JZ«*mmM. -MUM %*n, TREE_0ISTR IBUTION*. W . ypov Treed *), 
free ( ypos ); 

temp^zposaic^posmon B NU LL; 

) 

etse 
break. 

ttfdef OBG 

J^.O.Duc.f,*. ^.^.v,- TREE.D.STRBUT.ON-. TPOF. ««. T^-,; 
free ( 200s ): 

tornp->zposaion|posttion) e NULL: 

35 »*y OBG 

J2*->U± *K*U%s\t%d\I%t\n* TREE_DtSTRlBUT10N". "TEMP", ,.mp. Tr^.-,. 
free < tamo ); 
temp ■ NULL: 

) 
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r 

Tha reuun* frws tno lookup.!*** ntarmmon fvmdioa oy X2 or X3 Aitrttution. 

void ^Joofcup.tabte.hit.typ. ( lookup.** ) 
•trua tookup.uoto.fcst.typt Tookup.Oift; 

ftrud tootajp.ttWt.typ* lookup.ptr. lookup wr next 

tor ( irO; *MAXFIELDS; i~ ) 

if ( (>ookup.ptr*iookup_d«i^looiujp_tostfO) ♦* NULL ) 

white ( tookupotr »» NULL ) 

{ 

tookup.ptr.nox? « lookup jjtr^nwt; 
too*up_pv->noxt ■ NULL: 

fttfdof DBG 

fpmtf(0#ouflL««. "*«\t%«tl%d\tW. TREE.LOOKUP.TABLE_UST.7YPr. "LOOKUP PTR«*VALUE* 



( tookupj3tr->vaiue ); 
Ifctof DBG **kupj«r-*v«iu# - NULL; 

( tookup_ptr ); 
too *wp_ptr = NULL 
j tookup^ptr s too*up.ptr_naxt; 

«ookup w dJsi->tookup^hst(iJaNULL, 
croak; 

) 

20 ttfoafDBG 

toonup ast « NULL 

) 



25 



^ Thi, rounna tna kxxupjao,. «»orma,«n nano«o o y tna 0T . X2 or X3 o,stnoution 

*»«_ioo*ut)_tao>e_type ( tookuojrtf ) 
•true ioonup_iaoie.!ypB Toonup _ptr. 

"wo tooiu*_taOto.typa Too*up_ptr_ne«. 
wftila ( iookup.ptr N NULL ) 



•ifotf DBG 

3 C fW T!t' i ^ "*"!' U14rfttW - ^.LOOKUP.TABLE.TTPr. TOOKUP PTR->VALUE" 

( too*up_ptr->vatu© ) 
•ifaef DBG ' NULL: 

J««~«L*. ^E.LOOKUP.TASUTVPE, TOOKUP.PTK, ^ 

froe ( ksokup^ptr ); 



35 waujpjnr ■ NULL 

j tookup.ptr « toomjp.ptJ.next 

} 
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r 

Thii rouuna frees the Joo*up_taoie ntormauon handled by DT dotnouuon. 



{ 

ttnjd ioofcup_vaiues 1oo^ptr_next 
wr*s ( totikupjur N NULL ) 



toofcup^tr next = lookup Dtr->nazt: 
WdefDBG «"«*_p<r->ne*. 

tp^oebupjile, -%s\|%iWi^- ( -FREH.LOOKUP.TASLT. LOOKUP PTR-LOOKUP STRING* 
ttokup^ptr^toonup^stnnQ. " " 



**— ( teokup_pv->tookup_stnno ); 
^ q *oo*up_ptr->ioo*uD_stnnD ■ NULL: 

•tfdef DBG 

WoaDug.file. -%tt%sU%tftt%M* TREE.LOOKUPJTABLr. XOOKUP.PTR-. looKupjnr, Treed.-); 

fret ( ioo*up_ptr ); 
kooxup _pv e NULL; 
tookup_ptr » taoKup_ptr_r>ext: 



} 



15 > 
r 



/ i^, «wny nrwM list, as opposed to a ttree 



( 

status: 

2 0 2 cr»a*(MAXFJELDS]. 

cnar *mod buffer: 
cnar Tile_ptr. 

•Ubie^namefMAXPlELOSl 
MatefMAXf IELOS] 
•num Oau.type f*Wjype{MAXFlELDS). 

n, J*«,P^c»ionfMAXFlELDSl. 
w f «W.»nfftn|MAXFJ£LDSl 
nl ^^"umoerfMAXFlELOSl 
* D * ub -»«^MAXFlELDS! 
unsrgned tni temp^fefe/encefMAXFlELOS] 
»w fieW^name[MAXFfELDSFF(ELO NAME LENGTH, 

°* Trteneme; 

nt 

subsioteryso 
wua eooresj^renge reiaorfMAXFlELDS] 
*njct query^rto tempo/ *' 

«^*»ie_entry -field; 
em* fielo_efttry T»ks_heaa=NULL: 
u foto_entry Tieia_uti«NULL. 

JJJ num_f,#iaso. 

t y_«««.counfs0. 
„ counrsO 
Cfteroe*imnef»LOOKUP DELIMITER 
*trua amnout^type •Oatn&uuon«NULL 
wua d*n*ii«n jype "roowiooe « NULL: 

!£f ^^-^ Too L2 _noo. - NULL: 
-j c *trua uoel type « , , 

35 ma veai." nooe ™J*»Lnooe . NULL; 

crur ~ tej^nooe ■ NULL: 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



179 



PCT/US94/12074 



£tt Query mfo ^ er ^^- WJ ^ P -^ l - S ^ NUM - STO,NG > SI2E ) 
™ ^wy.mro Guery_tree_neac= NULL 

unsignea shon -reference m £ fw * nce - coun t- 

5 strua bmna P Teterence^birmao- 
struct ioc-*up_ values ^emp_tookup_c*rffen;MAXFlELDSl. 

/* initialize recumng vaiues */ 
x_axis_iengtn « 0; 
y_axis_lengflv= 0; 
z^axis^iengtri = 0; 

max_row_value_count = 0; 
max_eoi_vaiue_count = 0: 
1 0 max_page_vaiuB_couni = 0. 

Iookup_taoie a NULL. 
ta»e_tail = NULL; 

if (master count «e 0) 

{ 

streoy(insg_buffer. "VttnNOTE Vi") 
1 5 -T h " 0ue,V ycu * e,ec,e0 - eou, ° «o« maten any recoros Wl 

SSf cS ST""'" wa$ a " ,aa p,Mle ,,y 8nww se,sc,,on ™-> 

msg_out_xfer tmsg buffer). 

else 

prtntfH4s". msg^Dufterj. 



} 



20 



retum(SUCCESS). 



X2 or X3 can be done on multiple scenanos 



>5 



1 An °" mui "0» scenanos: 

2 cJ^l S, ° mer fm0S * lh8n ^-"lastef^bumao will return me master bitmap as the reference bitmap 
w ° mD,naiIon of customer ano s u ps«3iary fietts - then get master bitmap wiU ritum the comDmation 

'^rZT^TZ an0l ™^ s '°"^twrnaoas me reference bitmap If SUB01 arid SUB02*and CUS 

^^^^^n^ - * * CDm °™ 0n - -ster^map. suos^ry.ortmapn, 

3 Al^urcnase*»» : if(pu^ DltmaD 



felefence_0«map » get_masier_oi!maD<&mf_ea»e_flag). 

* (reference Bitmap ■« NULL) 

{ 

«repy<msg_bufiar. -VwnNOTE \n") 
° SmS-^r 2" ' nV8 " a eemtMnauo " * aamiuhen f.eiaf s> n«m VO. 

SEE SESctST * u ° m " 8n SPR wrtn me Oa,aoa,e Lffm ProouB "•"•■"•*«"->• 

™sg_bu?_xter (msg buffer). 

else 

prmtfH4 5 -. msg_buffer); 
retum(SUCCESS). 
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) 



* ((mf_cw«jlaQ) && 

^ <purcnase_Query |f procua_query)) 

»onnmtemp_count_str. -%<r. master count)- 
•pnntf (msQ.ouWer. - Total customer recoTos " : 



ttstn - , m»ster_count_str); 

if.(DMO^CONNECTED) 

msg_ouf_jaer< msoLoutfer ). 
•tse 



P"ntfnt$\n" t msg_buffer); 

1 0 rreef master_eouni_ str); 

^ mestef_count_str c NULL 

r initialize variables 7 
Jor(i«0; kMAXFIELOS; 



15 



) 



sub_set[i} e 0; 
i«mp_reference[ij * 0: 



* (strcmpffiiejtst. "")=*0) 



) 



r fie Jist was not soecrfiec* 7 

pnntfrEniBr eaner tha fuename or distribution fm«.«^ 
«anf(-%s- filejist); »»™mon frequency: 



i s o, 

wn«s ((file^stn^imod^buffer.oeionaer,) NULL) 

filename « get.strtngr Amoc_bufler. oehmiterl 
Utokj_name[i] * marioc/MAXFlELDS*i } 
CHECKALLOCATION(tao.e namef.J Table namm.i « 

U. iaW8 .name[.joisoiay.samo»e - cn L a, S tnout.cn{)-) 
» ((fi^tra$trchrff f lename '.•),> '= NULL) 

25 } *P nn "f»Dla.name|.J. -as", f.wnamej 

else 

{ 

, spnntf ^.namel,] Tookup^tSs oat filename). 
tabte_rtame[»](stnenctaoie_name[,])] = XT 

30 > 



treeffiiename). 
ftenameeNULL. 



if (fite_ptn==NULL) 
{ 



filename * oe L strinor Amod.buffer. oehmner) 
iaoie_name(i) = manoerMAXFIELDS+1) 

if ((ftle_ptr«5trcrir(fiiename V)j i 3 NULL) 
»nrm<iabie_name(.]. filename) 

3 5 

sormffltable_name[iJ. lookup dtr%s oat- fiton*™^ 
table.name{iJ!strienuabie.n.me7,j)) *W* ' 
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20 



25 



30 



free(Wename); 

filename a NULL 

wniteHiempQ = next_parse_emry()) is NULL) 

if (ouery_tree_ftead =« NULL) 
ouefyjree_r*eao * tempq. 



{ 

frH_pjrsi^irM (Query tree need)* 
Query_tree_neao = tempq 

} 



field * tempo->fieid 

newjyDefnum^eJd) r tempq->rrelo:>f,eid type 
r^djen^numj^) = tempc^^^ 
rf (•tmcmpcf^fi.w ^ -s ur 3) ss 0) 

»ut>_tet|num_fietd) ■ 1; 
tuosiotary e 1 ■ 

r map seaion file 7 

if (is_errorf status)) 
•"W hanoiaf (MAP OPEN prp podhd 

-° ~ EWOR. i talus. ■ ai « lay _^ p(e _ 01I _ <wtm)u1<xi ^ 

f Mt tun motbss of data pomti •/ 
MJ-Jnum.tou, = ra«a« 1 n U m> 1 a ( . XUff 
o«a(num_fiaid*ij ■ Nuu _. ' ' . 

l«noo^fHi« J .oata-» lt . mj . r«Mr(num.li,i (fl .« lll; 

* (y.«w»_wunt <= 0) 

y.Ma.eouni = num fie«. 1 
n (Z_axu_coum <i 0) 

*_«*»_eoum * num_fieio - 2. 

•ookup.bodar ■ too*up_vii_uu > NULL: 
teM.Mmpia_e»uro_ t ».ow, &roo , 

oatafnum.tekq. f»B.n.*. (mjm fw " WJ fiel0 " j - /"T-T*-" 0 *' "•'"•Inum.n.fc,]. 
mf_ea.afla B . njn feu - IW " UJm - , " w * ""^>_«>»»renoe|n U m_f l ei < jj. 
U^n_ w iy.Wcouw. to.^.eognt. ^.p,. 



35 if(numjietd««2) 

^nozfieldreouiretffordispiawa lllum ., 
aL«*»_CDunt«i; 
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r ■•arch for value dutntwan •/ 

{ 

if («nxmotT»eloW*id_name. "PUR", 3) « 0) 

niterence_map » puroi map; 
else 



rafmnct^maD « pnJOi_map; 
distribution = snow mf count dtstnbuiion/aat* irmt •» 

" " T^Tr^l * r80t - nooe - toi.nooa. fiera name. 
f**jyt». fttk3^«caon. f-w.iengin. reierenc. map 
} ruimjiw, ioo*up_tat»e, f^^^>tmap7^ 

MM 

{ 

dixtnouiton = show_*ampfe_ count distribution* data Araw «««« , 
in rltTZ^f * f00t - nooe Att'Lnooe. field name 

num^EE ^- preo,,on - suo.set. temp 7eference 

} nurnjmm, too*up_taoie. reference bitmap) 



num - fieJd - *o*uo_tabie. referencejwtmapr 

» • 

free_bnmap(reference_bttmap). 
reference^oitmap = NULL. 

tor (rO; Knum field. t**> 
( " 

r free tne table name structure V 
15 fr««rttOie_namefi)). 

tabJe.namef.) » NULL. 

f unmap section tne •/ 

^^T mi,0C,0ScF,te(cnan ^ **«WM). 
ff Os_erron status I) 

error^hanoter (UNMap CLOSE fro coono 

) * ~ £RR ERR0R - M o«D»*y.*amD^cn L oistnbut,on"i 

•5 h r e^,n, va,ue 0lsmDu,| ori •/ 
^ U if {oistrioution »« NULL) 

r r.^. ^ 3 e or,n,,n 5 count va.ues 

r Si EKSrr « * ca " M " V3u « e ™ - •• 

^ oouar varies as opposed 10 tne toiai count 

if (num_f»erc z = 3. 

prm^3aistri 0 utionfaisir.outior. f*!2 ,aoei » a*,, Mlfn . h . 
n=; »ise * *_a*'s_coun. y_ax»s_count :_a*.s_ count: 



Pnnt.2distrioui.onfo.stribut.on f«i 0 , a6e , , _ 

y_a*,s_iengtn z^aaisjerW *-*»*_couni ■.ea.ijangm. 



else 



30 



*P nr «t(mig. buffer AnvnNOTE \n") 



'n*9.6ut_«er, msg.euftef j 

Pnntff-%s\n- mjc.butfer; 
■ Wjetf.buist ). 

f initialize values V 
OTate_z_tabie » FALSE 
create_y_tapie * FALSE 
3 5 cr»«*_*_iabie * FALSE. 

r 

Although Oistribut»n fields are build ^ 

?t^£K wnn W^^-j^S^ M not cwie, „ 

•/ ^ oecrememeo to earnp^,. ^ ^ '° an0 n • aomon cweni.query.antry nmw to 

reset_ouery_eniry(num_f^, d) 
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*(quafyjree_head »= NULL) 

*»a_pars«_tre# <ouefy_ir*« rwad); 
0uer y.tf©« - heaq = NULL. 
^l^ar*e_trae(). 



if <*«nouuon !* NULL) ^ °" ^ P« *e* on* once 



•/ 
7 



10 



J 



frw_tfutntKJtion_type( cutnbution. x axis count v axis ^ , 

distribution s NULL. -««.counx, y_axis_coum. z_ai isocount ); 



r free an the parts to too*up oistr table 
(toORup^taoie !* NULL) " 

Str*-^- , ^ (,00itup -'- W6,; 

^ tookup_taOJe = NULL; 

15 r tree tha taoai tnformairon •/ 
for(»sO;icnumjialo. n*) 

fraaffield^laDelfiJ). 
f*W_iaoel(i) « NULL. 

r tna tooRLTD_ buffer •/ 

rf (temp_KX5KLir_t)Litie^!j >« NULL) 

2 0 *e«_k>okuD_tat>W! B mp tookuo buffarfilr 

tamp^iooKup^ouWerfij s NULL. ~ 



} 

'etum(SUCCESS). 



25 



•ifdefOLD FUNC 
r 

This ism is not being usaa current* 
ror •vary bit sal n me customer t»tm».* 
, ^ — — « - W ~ <»" — * stores 

^ vaj^nooa 

•"^oaujypa fieIfl - ap) 

unsigned™ f»Jd_kenotn; 

30 Sua bitmap N^jmp^-^ 1 ; 



uns»oneoint i (j ,j, >w < 
unsigned mt num orts 
unsigned long nor^ nam 
unsigned mt lanjajmtaoer item- 
unsigned snon -macuum^tigar item 
unsigned cnar 'sma^mteoar Rem ' 
_ unsigned mt -bit a em; 
3d unsionaoint temp^counter 

" oai Tk*tmg_nam; 
ooubia - d0u0le nam . 

cnar •wring vaiua: 

TOr ' 'stnngjstr, 
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va*je_nooe foot_nooe • NULL: 
we.nooe *un_nooe « NUU; 

ttmp^couruer r vaJue_&itmatK>start; 
num_brts * aat»^r*imoer_of_nems; 

**W (field type) 
( 

ease dollars: 
10 case ftoaiwg_pomt 

case iaroe_mteger 

PROCESS.BfTTABLE PART 1( taro. m.~, 

vamn Mr9# - rn# 9 er - ,l *n. unsigned nt • ). 

PROCESS BfT TABLE PARr^^^!!!!^^ m ^ x -^^ nooetew ty^f*,- 
break: " ^•.«™«9*L«am. BITMAPjNTEGERlsiZE. 1 ) ,H, ' a -* n * h >' 

case ftxto_stnng. 
case yearjmontn: 
case year_month_oay- 
_ case medium integer 

15 «M«S>T.TAeU_P«.T_„ n«™.^. ,„, . 



case small integer 
PROCESS_BIT_TABLE_PART_ 1 ( s^^ ^ ^ . f 

PROCESS BIT TABLE ^A^T V 2(^m»irmi^ , ^* r ~ nem ** r ^ •yP»»»W mm*. 

2 0 twa* ~ - ^- 2( * m "»-'m»0er_«« n . BfTMAP_INTEGER~SlZE. 1 , - lyp " " ek5 - ton S« n > 

case string type 

PROCESS^^TABLE.PARTj( ,trm 9J5tr , un,^ ^ . 

stmcpyfstnn9^vaiue.stnn5 - pt ri f ie , 0 _ lengfn) 
strmg^vaiuelfieic length) s"^- 

case oit^tyoe 

PROCESS BfT TABLE PART it h* »-~> 
25 ^wc^r^n M_item. unsigned mi • ) 

PROCESS.BrT.TABLE:^ 

) 

#rfdef DBG 

fpnntf(oeOuOte. -AsU^sM%dUW. T)ISPLAY^SAMPLE.CNT.OISTRlBUTlON-. "STRING VALUE" 
stnng_vaiue. -Freed "). - * 

ftendir 

30 ,rM < stnng_ value ); 

strmg^vaiue = NULL. 

retumtrooi^nooe). 

) 

ftendif 



5 



SUBSnTUTE SHEET (RULE 26) 



WO 95/11487 PCT/US94/12074 

185 

MdefOLD.FUNC 

, R0UTlNES "»* BEEN °^ 0P SYNC «™ THE DISTRIBUTION. PLEASE CHECK THE VALID rTY 

r 

This rout™ is not Demg usee current 

This routm will disptay a field vaiue on screen 

5 .' 

nt show^f»id_dtstnbution(ftejd) 

struct field entry "field 

{ 

I" 1 status: 
rt cnan; 
struct Bdaress_ranoe retean 
ttrua vaiue_noae •Distribution- 
enar "buffer 
10 cnar msg_Dufferfi32): 

fiew_offsat * 0: 

if (master count ss o) 
{ 



*rcwmsg_buffer. -Query did not oroauce any results VnT 
strcattmsg.t)ufler ^o oistnoution created Wnn 
if (DISCONNECTED) '* 

15 _ ms L^jrfer<msQj5uffer); 

else 



) 



pnnrff%5-. msg buffer) 
retumfSUCCESS). 



r mao section file •/ 

. " °— F — •>«- ^ «k r^ rw „ am , & _ 

<: 0 if r«_error<status» &f8laar r,e, <»->von. fieio.»nurnDer_of blocks) 

error nanaier (MAP OPFN pod enr,^~ 

- urtN - ERR - ERROR, status "aho^ a. m 

f.eio.>oaia.>«ems = reiaor sian 

'^•^.type.rf.wo string, 

**L*m = ^Lf-ac. S t,n 3 .o,set^ l o.>fie I0 ^ mB , 
-j = r searcft f or value aisrnouior •/ 

- - . ^, lu .. 8l s. 8u , lon , fKM0 . >cat , fieio . >f(e(a _ |yoe 

r onn, vaiue o-mduwn '-«->'*»_.rw. fielfl ol , Ie( m8Ilef J>iImao) 

CHECK ^Tnr S «- 8UFF5R - L SNGTH| 
CntCK_ALLOCATION(Oufte' buti»r oJ . 

■mssLom_x»er ( Duffer ). 1 f,e, °-*'*'c.nam„. 

30 * '* Rf *ution »r NULL) 

r print vaiue tree will ii n »» 

^ pnmje*t_oufsi j, 

3 5 free ( bufter ). 

butler = NULL: 

r unmao section file 7 

Mtus « UnmaoCioseFriercnan. Aretadr)- 
Os.erron status)) '* 

■ «^nanoier(UNMAP CLOSE ERR FRpod 

**-tRK ERROR, status. "showed d.stnbution-) 
^ 'atum(SUCCESS). " 

*endrf 
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•tfdtfOLD FUNC 

r 

V ^ * 0UmBS BE£N °^ OF SYNC WITH THE DISTRIBUTION. PLEASE CHECK THE VALIDITY 

r 

This roubne a not being used currently. 

For tvwyMiitn mo customer citmaa (mmiw ^ 

taSs: «r u i B ^^»^ v " u * ■ re " d 

struct oataset * 0BU; 

sinja fast_vaiue_node •"root node 

struct vaiua_nooe "Tinjloae; 

unsigned ^ field numoet: 

AU unsigned «t fieldjengm; 

n • f offset; 

struct bitmap Vaiue^bnmapf 

unsigned rt i, j. jj, toe: 
unsigned mt num cits: 
unsigned tong nong_nem: 
unsigned mi narge_mieger_«em: 
15 unsigned snort Tne0Jum_mteger nam 

unsigned cnar 'small, integer item 
unsigned mt •bit_item: 
unsigned mt *temp_counien 
teat •noaimg_riem; 
double •ooutMe^rtem; 
cnar 'stnnLvaiue, 
cnar •stnngjHr. 

Slnng_value c maUotffieW lengtn+ii 
2 0 CHECK^LLOCAT.ONU^.vau... «~ « 

temp^ counter = value_brtma>>stan. 
num_bits = oaia->number_of_items 

switcn (field type) 

[ 

case ootiars 
2 5 case floating_poin: 



35 



large, integer 

process err table part mam* - 

•nsert.iisLvaiuefnarge^mteger^item rootnoae.tail nooe field type 
field number field imm»«i " - 7 ' 

PROCESS.B^TABLE.PART.J. .-iSSBL. BfTMAPJNTEGER_SIZ£. 1 ,. 

case year_montn 
case year montn_oay 
case medium integer. 

3 0 PROCESSlBIT_TABLE.PART.i( medium jnteger^em. unsigned snort - , 

msen_hsi_vaiue<-meoium_«ieger_rtem rootnooe.teil nooe 

PROCESS^ TABLE P^^J^ JnK ^^ la ^l 

area* " BLE - PAR7 -*I «w««n.inieger.a.m. BITMAP .INTEGER SIZE 1 ) 

case cnaraeter 

case smaii^mieger 

PROCESS_BlT_TABLE_PART 1( small eneoar M 

r • U - Irne 9 er _rtem. unsigned cnar • v 

case strmgjype 

PROCESS.BIT.TABLE.PART.1( strmg_ptr. unsigned cnar • , 

strncpy(string - vaiue.stnng - ptr,field - iengtn). 
«rmg_vaiueffield_iengtn! e^rr 
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10 ) 



case Oii_tyoe 

PROCESS_BfT_TABLE_PART_l( bl ,_ rtem . „ . , 

case fared stnno 

PROCESS.BIT.TABLE.PART.K n^.^^ snon . , 

l^^^^-^'^ ^^^^^^^^^.^^^Wium mteger item) 
->«rmg.t»jc_tengtr strmg_vaiue[field_iengtn) = VT 

process bit^TpE^^ 

break- TAB U=- PW - 2 <««o^.imepar_ii«m, BITMAP JNTEGER.SIZE. 1 ). 



freer stnng_ value ): 
«ring_vaiue * NULL. 

wum(Toet_noae); 

) 

eendrf 
^2 fcfdef OLD.FUNC 

THIS ROUTINES HAVE BEEN OUT OF SYNC WITH THE DISTRIBUTION. PLEASE CHECK THE VALIDITY 

•/ 

r 

Thu f^-iune is not being used currently 

This routine oisotays mumpie field values on screen However, tne values are storeo in a linked 
list poor to Demg printed 

V 

2 0 nt snow list field dtstnoution() 
{ 

nt status. 

nt cnan. 

strua address_ranoe reiser 

strua ouery_tnto 1emp3. 

struct fieW_emry TieW. 

unsigned nt fietd_numoer. 
_ z nt num_fiBK3s=0. 
^ struct Ust_vaiue_node •oistnoution; 

struct test_vatm_ncoe Voot_nooe * NULL. 

strua vaiue nooe tail nooe « NULL. 

FILE " ff. 

cnar tuffer. 

cnar msg_Dutler(132]. 

nt field.oftsetsO. 

strua query_nfo *queryjree_neao= NULL. 

30 (master count 0) 

{ 

strcpytmsg_Outter. "Query did not produce any results W*). 
strcatfmsg cottar. "No oistnoution aeated wT); 
«f(DMO_CONNECTED) 

mig_Duf_xter tmsg^bufler); 

else 

prmtfPAs", msg_buMer); 
retum(SUCCESS); 

35 ) 

wniie((tempq = next_parse_entry()) != NULL) 

{ 

if (ouery_tree_nead NULL) 
query_tree_neac » tempq: 
etse 

{ 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



186 



PCT/US94/12074 



free_parse_tree (auery_tree_head). 
Query ire© neao = temoq. 

} 

field = temDO~>fieid. 
5 /* map section file V 

status s OpenMapFile(fo!0->tabie. loobar.sec". fieW.>fie!d w nam« 

4cnan. Aretadr. f*ia->vDn. f»eio-> number ot biocxs) 
rf (ts_errort status)) *" ~ 

error_nano.er (MAP_OPEN_ERR. ERROR, status. -in&jmjmmjamMvn-). 
r set staa address of oata points •/ 

fieio->data-> items = retaor.stan: 
^ q fiflio_numt»r = nasn(fieid->field_name). 

if (field->f>e»d_tyoe == fi*ea_smng) 
fieic_otfset = qeiJ«eo_stnng_offset(f»ld->fieid_name); 

r search for value distribution •/ 

oistnDutJon = snowjist_vaiue_oistnbution(field->data. Aroo!_nooe. 

&taii_nooe. fieid_number. fieio->fietd_tybe. 
fieto->fieia_end. fie.d_effset. master3«mao). 

r unmao section file V 
status s UnmaoCioseFiie(cnan. Aretadr); 
rf (is_erronsiatus» 

.nano.er <UNMAP_CLOSE_ERR. ERROR, status, '^Dw.listJirtd.distrmulwnl. 
num^fields**. 

) 



15 



30 



r Droit vaiue ontriDution v 

r the f»«name :s bunt »n tms manner •/ 
SDrmrf(msgJ.ie_outTer \*r»te_a.r •as" oueryjiiename) 

rf ((* = fooemmsg^fiie^butfe', ~a*")) *= NULL) 

forintfff? -%s.%svr auery_*evcooe auery iat>en 
rf (distribution 's NULL; 

r prin L fue^a.uejree «.n tr M an the noaes m oistnbution •/ 
etse P - e - va,ue - treef " a«tnout«n. numj.eias f.eio-»f,eidjype), 

, " No v8,ue$ ,0uf * 'or this distribution, pie.se try another query *-); 

eise 

( 

, • mr - ,l ~« F «.NOT.OPEN. ERROR, NONSTATUS, msg^buffer); 
rf (teose(ff) =3 EOF) 



} 

eise 



error.nanoief (FlLE.NOT.CLOSE. ERROR. NONSTATUS, msg^fi^bufter). 



* do«g local ^bw wnh d,ea pnmf,,, u*ng pnot^v.ue.tree V 



r P«w.bsLvaiue_tree will free all the nodes « distribution •/ 

3 3 w - to L*»'ue_iree<aistnDuiioanum^ 

else ~ 

pnmfCNo values found for ma eotnouuon. pleas* try •notner ouery.vO; 
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r 

add jmajMioryi). 

•/ 

tf (ouery_o»e_head »= NULL) 

c * lree_oer*e_tree <o*ieiYjree_he»d); 

b tree<query_tree_nead): 

} 

retum(SUCCESS); 

) 

eendif 
•rfoef OLD_FUNC 

r 

1 0 THIS ROUTINES HAVE BEEN OUT OF SYNC WITH THE DISTRIBUTION. PLEASE CHECK THE VALIDITY 
•/ 

r 

This routine it not Oemg used currentry 

This rout** writes mutttpte field values on to • file. However. 

tne values are stored m e fanned us: pnor to oema written. 

•/ 

int write field distributor^) 

{ 

15 nt status. 

m cnan. 
struct addre*s_range retaor. 
struct ouery_into tempQ. 
strua fieid_entry field, 
unsigned tnt field_numoer; 
rtt num_fieias=0. 
struct hst_vatue_node 'distrtout>on, 
struct i*t_vaiue_nooe *root_nooe = NULL, 
struct value nooe "Xau nooe = NULL. 
FILE T. 

int fieid_offset=0. 
cnar txiffer 

cnar msg_Durfen;i32). 

struct ouery_mfo *query_tree_nead3 NULL. 

if (master count == 0) 

{ 

strcpytmsg_Dutte^ "Query oio not oroouce any results VT). 
strcatemsg D utter "No cistnouton created \n\n"). 

rf (DMO_CONNECTEDt 

ms5_ou?_rfer tmsg^outterj. 

else 

prtntff msg_ouf1er) 



20 



25 



retum(SUCCESS). 



} 



r the filename is Ouffl tn tms manner •/ 
30 sprmtTirnsg_f»ie_DuTter. wnte^atr^As . Query_frtename). 

if ((ff « fooen<msg_fiie puffer, "a*-)) NULL) 
{ 

wrwts( (tempo s next_parse entry{)) »= NULL) 
{ 

if <Query_tree_nead NULL) 

query_tree_nead = tempq; 

else 

J tre©_parse_tree <ouery_tree_head): 

Query_tree_heao c tempq; 
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} 

field « temoo»>fieid. 
r map seeuon file */ 

status = OpenMaoFrieffietd-MaOle. loooar.sec". f»eto->fieic_n3me. 

&enan. Aretaor. 0eto->von. fieio-»numD*r_af_oiocxs). 

if (ts_err or t st a tus)) 

error_ handier (MAP_OPEN_ERR. ERROR, status. Vmejield^distnoution"'). 

r set start aooress of oata ooints */ 
fieid->oata->nems = retaor star*. 
' fieio_numoer = nasn|fieio->fieio_namej; 

if (fieid-»f»eldjyoe == f«ed_stnng) 

fieid_ottsei = qeiJaeo_stmg^offset(fietd«>fieid_name). 

r searcn for value oistnoution V 

otstnoution = snowjist^vaiue_atstnDut»n(fi8td->data. Aroot_nooe. 

&taii_nooe. fieid_numoer, fiekJ->fieidjype. 
fieio*>fieia_end. field_offset. ma$ter_DitmapJ. 

r unmao section lite •/ 
status = Unmao CtoseFiiefcnan. &retadr): 
if (is_erron status)) 

error^nanoier (UNMAP_CLOSE_ERR. ERROR, status. Vnt8_f»eta_drstnoution"). 
nurrMietas** 

} 

r prmt value distribution 7 

fprmtf(ff, "•As-%s\n*\ query_keycoQe. queryjabel); 

ff (Oistnoution »s NULL) 
. r pnni Jne_vauje_tree wilt free all tne noaos v\ dtsmoution 7 

2 0 prmt jue_vaiue_tfee|ff . distrtoution.num - fieios.fielO->fteldjype) 1 

else 

{ 

tprmtffff . "No vaiues found for this OistriDution. please try another query \n"). 

) 

eise 

{ 



15 



25 



error_hand»er(FlLE_NOT_OPEN. ERROR. NONSTATUS, mtgjiie.ouffer); 

if (tclose(tf) « EOF) 

©fTor_nandier(FiLE_NOT_CLOSE. ERROR. NONSTATUS msg_fiie_Dufler); 



30 r 

add_parse_h>jtory{). 

if <Query_tree_head t= NULL) 

free_parse_troe (query tree head) 
j free(ouery_iro«_head)r 

3 5 «tum(SUCCESS); 
aendif 
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r 

^ For every bn set n tne customer bitmap (master_bvnap), the appropriate fie tt value is wrmen to a file 

rtwrne^vaiue_distnbution(r^icJ. fiie^iocauon, data.f»kJ_rype.f»eU *engtn.fiew offset. value bitmap) 

rt relocation; 
struct oataset "data: 
•num oatajype fold type; 

unsigned mt field_lenatn; 

fieW offset 
struct bitmap *vahje_bJtm«p; 



unsignedmt Ui.hk. 
unsioned mt num_bits: 
unsigned long Tong^em; 

101 Targe_neg_mieger_rtem, neg_mteger_vaiue: 

unsignedmt Targe jmeger_item, mteger_vaiue; 

unsigned snort °meaium_mteger_nem. medium integer value 

unsigned cnar •small_mteger_rtem; 

unsigned mt *brt_item; 

unsigned mt Temp_counter 

float •noatina.item. ftoat_vaiue; 

ooubJe *doubie_rtem. ooubte_vaiue; 

cnar •strmg^vaiue: 

cnar 'stnng_ptr. 

cnar fKed_stnng^vaiue[FlXED_STR!NGj.ENGTH). 
w current_posnion=0. 

struct value_nooe Yoot_node = NULL, 
struct vaiue_nooe tail^noo© = NULL: 

stnng_ value = maitoc/field_iengtn*i J. 

CHECK_ALLOCATlON(stnng_vaiue *'smnQ_vaiue.snow^vaiue_distnt>uuon()-); 
temp_counter = value_bnmap->start. 
num_btts = data-»number_of_nems. 
switen (field type) 

case enaracter 

PROCESS^ BIT_TABLE_ PART_ t ( smaii_inieger item unsigned cnar • ] 
)seeMfiie_io relocation 0). 

sormmfutea_s!nng_vaiue "%c" (mt •ismaiMnteger^item). 
write^it©_io. f«eo_stnng_ value. saeof(mi))7 
fi»_tocation *= PAGE_SlZE. 
curTer.:_ooswor> = saeofimtj. 

break PR0C£SS - BIT - TABL£ - PART - 2( smaiMnieger_ttem. BITMAPJNTEGE RESIZE. 1 ). 
case smaN_mieoer 

PROCESS_bVt_TABLE_PART_1 ( smaiLmteger^nem. unngneo cnar • ). 
lseek(fne_id fiiejocation.O). 

sortntfifiied_s!rmg_ value "•-440". (cnar •)smaii_tnieger_ttem). 
wrttetfiieja. icnar •\fweo_stnng vaiue. si2eoti~nt)j 
fiiejocanon * = PAGE^SIZE. 
current_DOsiuon s stzeofttnt) 

PROCESS_BJT_TABLE_PART_2( smainnteger item. BITMAP INTEGER SIZE 1 I 
break ~ " 

case Dn_tyoe 
case iarge_integer 

PROCESS_Brr_TABLE_PART_1( large_mteger_riem. uns.gned mt ■ ); 
iseekffitejo.filejocation.O). 

sorinmr«ec_smng_ value "%10d~, (tnt Marge^fntegerjtem). 
wnteffiie_id. (cnar •)fixed_stnng - vaiue. field lengtn). " 
fiiejocation *= PAGE_siZE. 
current_posmon s s*eofiint). 
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WOCESS.BIT.TABLg.PART.2, BrTMAPjKTEGER.StZE. 1 J. 

case oottars 

PROCESS.BnvrABLE.PART. 1( ^j^^, un,^ « . , 
tseeKffiie_fO fne_tocauon.O). '* 
5 »nteger_vaiua = imi •Warga_iroeger_iiem: 

oouDJe_vaiue * faouDieunteper vaiue/100 0 
*^"txeo_srmg_vaiue.^7.2r (ODubietoouD* vaiue) 
wmeff«e.«. fcnar •)f«eo.tinn flL va W 0. vnatw)). 
fue. location ♦» PAGE.SIZE. 
- Donrcrr B *f fT * n LP0Srt»n = szeofmouoie); 
PR0CESS.Brr.TABLE.PART.2 ( torpe^oer^ BITMAP JAEGER. SIZE. 1 ). 
case floating-point 

10 PR0CESS - B ^S E ^* RT - ,, : *MPJ* «•*-«•). 

* w *f'ii*_id.ftfejocauon.O) 

*wwr.vaiua«lmi -)iarge_inteoer nem; 

noat_ vatue = (float hnieger vatua/100 0 

S^!?- ,lm9 - v * tut •^ 7 - 2r - CflMttftoat value): 
wnteffue.io, <cnar -)f«ed string value sireoffmm 
relocation ♦« PAGE SIZE; •^t™)). 

PROCESS.BrT_TABLE.PART.2 ( larpe^aoar^. BITMAPJNTEGER.SI2E. 1 ». 
^ - case negative float 

PR0C£SS *BrT TABLE PART u i a «^ 

* ise^f*. #7 - ^nje.neo.fmeoar^nem. mt ■ ). 
iseeMi Me_io ftie location 0) 

,fl °«>"e8_<ntwr_va.ue/l00 0: 

file.toeation .« page SEE '"■ 

PROCESS bHSlTpSt" , ,T^ fl0i,,, 
20 A BLt_PART.2( *voe_neg_*iiegar.nem. BITMAP.lNTEGER SIZE 1 I 

braX 
eass mvanjfn.miegar 

PROCESS_BIT_TABLE_PART_1f mBOium_mteg»f_nem. umigneo wort " ). 
iso«K(fiie_io fi«_ioeaiion.O). 
iomt1(fuiBa_jtnna_ value "V4C". (snort 'tmeoium 
wmeffrte^c. icnar •Jfaeo_stnng - vaiue. iaeot|ini)7. 
relocation *= PAGE_siZE. 
CLBTent^pqsnron = laaofimt). 
PROCESS_BIT_TABLE_PART_2( meGium_tnteger_nem. BITMAPJNTEGER SIZE. 1 ). 
25 ma* 



case faed_stnng 

PR0CESS_BIT_TABLE_PART_1( meoium_integer_itern. unsigned snon • ). 
tSMkffbe^to fne_ location. 0) 



atnng^vaiue * maitocffielo_»encjtn*1). 
CHECK_ALLOCATlON<simg_vaiue. "5tnna_va»uo Routine wr«e_vaiue_distnDut»n(n 
ttmcpyl strmg_ vaiue faeo^fieifl[f»eid_of?setJ->f«eo_$tnng{^eoium - integer^rterY>H>smnQ fietd_tengtn). 
strmg_varue|fielfl_»ngin}="\0\ 

wrne(fue_id. stnr.g_vame. fiew_>engtn). 



^ 0 free ( itrmg_value ). 

strmg_vame * NULL 
fi*_ocation *= PAGE.SIZE. 



35 



current_DOSrtion = fieio_tengtr\: 
PROCE5S_BrT_TABLE_PART_2( meottjm_iroegerjtem. BrTMAPJNTEGER.SlZE. 1 

OfBBK: 

case year_montn 
case year_montn_aay- 
PROCESS_Bn_TABLE_PARTj ( medium jnteger_nem. unsigned snon: * ); 
ueeWfi»e_id.frtejocation.O): 

SDftnWfaeC_stnng_vatue.' , %S". numoer_to_Oatecmedium_ntege^iteni)), 
wnteffiie^id , tcnar *)fueo_stnncj_vaiue. 10)7 
relocation ♦= PAGE_SIZE. 
current ^position =10; 
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PR0CESS_BrrjrABlE_PART_2{ maaumjnteoef nam. BfTMAP INTEGER SIZE. 1 J. 



eaaeitnng type 

PROCESS JIT^TABLE.PART.K stnngjMr. ^ enar • ). 
fceeK(fiie_id.fiie_iocaiioaO): 
5 «nng_vaiue * maiioctfiettjengtr*»i ); 

CHECK_AUOCATION(ttnng_va.ye. -stnng_vatueRDUtine wnte vatue oistnou!ton(n 
stmcoyisrnng^vaiut. tenar nsmngjnr. fteW tengtn). 
stnng_vaiueffieidjengtn)s*\0\ 
wnte(fiie_id. stnng_vajue. ftetojengtn); 

( strmg_vahie ); 
stnng_vaiue » NULL: 
frte_locauon •» PAG£_SIZE: 
. ~ cunent^position • field lengtn; 

^ROCESS_B!T.TABLE.PART.2( s7nng_ptr. BlTWAP.INTEGER^SIZETrtiW.lengtn. ftodjengin ) 

) 

rmum{current_pasition); 

) 

r 

V ^ ~* " ~ * "* am ° mar «>— th. appropriate Md value * wnnen to . 

15 » ^•.«uos_vaiue^oistn&ut©n(f^id. file.locauoo. data.field type field lenmn a.* — 

reference.brtmap) ^o.«ype.»*w.tenp!n.f*to_otfiet.v a ^ brtmap 

rt frte.iocauon; 
struct oataset • data 

•num caia_type fieI0 ^ 

unsigned mt fie»d_lengtn; 

w fiett.otfsef 
•trua oamap Value_ bitmap. 

20 * trXJQ fiamap * rBf wence_onmaD; 

unsigned *rt Uii.fcA.ll.mrn; 
unsigned mt num tms. 
unsrgneo tang Tong_nem; 

^^•nt narge_,nt.g^ 

™!^!^ ?* 0l «*-™*>*r_«*m. mioium.^eg^ value 
unsigned cnar •small integer nem 
2- unsigned mt -pi^nem: 

unsigned mt nemp_coumer. temp reference 
wai •noatmg^nem. Doai vaiue 

oouoie •ooupie^nem. oouoT© v atu « 
cnar Itrmg, vaiue. 

cnar *stnng_pir 

f«ed^stnng^vaioe(FlXED.STRING LENGTH) 
curreni_posnion«0; 

•truct vakie_node Tooi_nooe « NULL 
3 o «rua vame_nooe naiLnooe * NULL. 

stmg.vatue = matoc/fietd lengtn* i) 
CHECK.AUOCATlONlstr^ 

temp_ counter = vaJue_Citmao-> start 
lemp_reterence b reterence_Drtmap-»start; 

* 

num_oit$ « v«ue_b8nMp^numDer_of_t)itt: 

35 switch (field typ«) 

{ 
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break: 



PR0CESS_MB!T_TABLE_PART_1( smaiLmeger item, unsigneo cnar • ] 
iseeK<fi)e_iafiie_tocatioaO). 

spnntf(f«ea_8inng^vaiue. ,, %r. (mt Ismail nteger ncm) 
wnteffite_io. fixeo_strmg_vaiue. saeof<tnt)h 
relocation *= PAGE_SlZE. 
curreni_position a stzeoftmt); 
PR0CESS_MB!T_TABLE_PART_2( smaiunteger_iiem. BITMAP JNTEGER_SIZE. 1 J. 



small mteoer 

PR0CESS_MBITTABLE_PART_1< smailjmeger nam. unsigneo erwr • ) 
tseeK{fito_ia.fiie_tacatiDaO). 

sonntfffaeo.stfing^vaiue.^ur. (Char Ismail .integer item). 
wnte(ftie_io\ (cnar •)faec_stnng_vaiue. sizeoiont)) 
fiiejocation PAGE.SiZE. 
current_posmon s sizeotimi). 
PROCESS_MBI7_TABl=_PART_2( smalMnteger_item. BITMAP^INTEGER^SCE. 1 J 

case on jyo© 
case iarge_mteger 

PR0CESS.MBIT_TABLE.PART.1( targe.mteger nam, unsigneo mt • ) 
is«ek(fiie_id.fiie_tocation.O). 

SDrmttrfaeo.str^vaJue.-^IOcr, (int ^large integer item) 
wnte(fiie_ia. (cnar •tf«eo_stnng value, fieto 7engtft) ~ 
ftie_iocation *s PAGE.SI2E. ~ ~ 
cufrent_oosmon = sae"of(mt). 
PR0CESS.MBIT.TABLE.PART.2( Urge.jntegerjtem. BITMAP JNTEGER. SIZE. 1 ). 
case aouars 

PR0CESS.MBIT.TA8LE.PART_ 1( .ar 9 e J n»g.r_ W m. un,, 9 n« • , 
isee*(fiie_ifl.fiiejocation.O). 
mteger_vaiue e"imt •Harge^mteger item; 
oouDie_vaiue « (aouOte)tnieger vaTue/100 0 
SDnnrt(f,*eo_stnng_vaiue.^7.2r\ (double K»ubie value) 
wmeff.ie_.o (cnar •>f.*eo_stnng_vaiue. saeof(.nt)7 
fne_iocation *s PAGE^SIZE. 
current^oosnion = s&eofcoouoie) 
PR0CESS.MB.T.TABLE.PART.2, Brge^eoer.^m. BITMAPJNTEGER.SIZE. 1 ). 
case f joattng __potn: 

PROCESS.MBIT.TABLE.PARTJ, ,arge_ 1 «,. 9 ,r_,,em ^ M . 
isee« i fue_ ic fne_ location 0) ~ 
«niege-_v,a.ue = ..n: •>:arpe_tnteger - .item 
t:oa:_»asue = Mjoauintoge'"vaiue/I00 0 
sDr^rT.t„ea.stnn g- va»ue ?r n.oanfioai va.uej 
wf.ienne.io (cnaf)fureo.stnng^aiue s.zeofunm ' 
f»»e_iocaiion *= PAGE SIZE 

0 »~^^ Cuw " ! JM««" r sneof ffioat ) 

PR0CESS.MBIT.TABLE.PART.2, large.m.eger.item 6 ITMAP_ WTEGE R_SIZE. 1 ). 
case neganve_fioa: 

PR0CESS;MB.T.TABLE.PAR7_1 ( ■ar B ,_neg.mt. 9 er n.m. M • , 
iseenri.ie^ra tue_iocatton.O). 
neg^mteger^vaiue = (ir,i Marge^neg integer item 
fioa:_va»ue = ( float »neg_mteoerjvaiue/100.0 ~ 
sorirvf'i^ea^strmg^ value "%7.;?r. (ftoannoat_ value) 
wriie't„e_, c (S narMf«ec stnnp vatue ^aaot(int)} 
relocation ♦ « PAGE siZE 
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o***nt_potmon ■ snecffAoat); 
J^ESS_MBITJABLE_PART_2( l^^n^truf^r^nmm. BrTMAPJNTEGER.SlZE. 1 ) 



PROCESS^ TAfl^p^^ ^ . 

*«*«*<foe_id.fMe iccauoaO) 

^(fa^str^L^.-W. <s*on -)maaium mieger nam). 
*me(n»^id. (cnar •)foceo_stnnLvajue. **eof<int)); 
relocation *« PAGE.SIZE. 
Qjrrsr ^^osAion = stzeotttnt) 
PROCESS_MBIT_TAflLE.PART_2( m««m_«^. SBnl . BfTMAPJNTEGER.SIZE. , ,. 
case f»ed_stnng 
PROCESS.MBIT TABLE PART KmeOum ntaar 

10 «n*SLvaiue ■ maiioeffietd tengtr>*l) 

^ E ^^° CAT,0 ^ ,t ^: i r '^-^ ***** ™ value aamwicn 
«mcpyistnng_vaiue. faeo_fielc7r»ekJ ofiseij->rued stmofm~, ~ ^.u l *u,oui«n U j. 
-string. fie.d_.engtn,; t^^ ff( ^ -^• BtfmJ ' 
wnte(fito_id. stnr>Q_vaiue. field jengtn); -■"vnpv, 

free ( strmg_value ); 

Stmg_vame e NULL. 

f>to_»cauon *= PAGE_S1ZE. 

15 ajrrent_pQSition s field jengtn. 

PROCESS_MBrrjTABLE_PART_2(~meouOT_ integer nam, BITMAP INTEGER SIZE 1 1 
firaax; " * ~ '* 

case year_momfi: 

case year_montr<_aay 
PROCESS_MBfT_TABLE_PART_1 ( me*umjnteger_nem. unsigned $non * ). 
lsee*(ftie_id fne_iocation.O); 

SOfmtf (fa«3_5tnng_vaiu« . "*% j". mjmoerjo_oa!e(^eaium_integer item)). 
wnte(fi»e_io. teriar •tf«ea_stnng_vaiue. 10)7 
^ q fiiejocaiion •= PAG£_S1ZE. 

current_po$«ipn = 1C 

PROCESS_MBlT_TABLE_PART_2( meaium_mteger_rtem. BITMAPJNTEGER_SIZE. 1 ). 
ore ax. ~ 

case strmg^type 

PROCESS_MSJT_TABLE_PART_'M s:rmg_pir. unstgnea cnar • j. 
lseeMfiie_sd fue_iocation.O) 
stmg_vaiue = mauocifieid_ length* 1). 

CHECK_ALLOCATIONistrmg_vatue *strmg_ vatue Routine wnie_vaiue outriDutionOI 
stmepyisxrmg_vaiue tour •>strmg_pv. ?ieio~iengtn). 
25 strtng^vaiueifieio^wngtftjs'c 

wnteffiie_ta. strmg_va»ue f»eid_iengm). 

free ( stnng_ vatue ) 
strmg_vaiue * NULL 
fiiejocano* *= PAGE_SlZE 
curfen!_posmon = fieidjengtn 
PROCESS_MBrr_TABLE_PAR7_2fstnng,ptr. BrTMAPjNTEGER_SlZE-r.etojengm. f.eio_»engtn ). 



break. 



> 



) 

retumi current _poiajon); 



35 
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For even/ bit set m tne customer bitmap <master_bamap). tne appropriate field value is written to a 

mt nrwe - pur - prt_vaiue^dist(fiie - ia, fito_tocatioa etata/ie^ty^TieW^ienQtaf^kJ^oftsetvakje.tJitmao. 

Query_mooe. oueryjype. pur^pro^count) 

5 fUe^id, 

fue location; 
struct dataset *oata. 
anum datatype fiekMype; 
unsigned mt fieW_lengm; 
«nt field_oftset; 
struct bitmap "value^bitmao: 
enum pur_prd_type ouery_mooe; 
eoum pur_prd_queryjype cwyjype. 
int *pur_pnj count; 

10 { 

unsigned mt i. j, jj, kk. II. meO. mm; 
unsigned mt num^bcts, num_values*1 ; 
unsigned tang •longjtem; 

targe_neg_integer_item, neg_mteger value; 
unsigned mt Tarpe_mteger_Rem, mteger_vaiue. 
unsigned snort *meoium_tnteger_item. meotum_mteger value; 
unsigned cnar ^maii_mteger_nem; 
_ unsigned mt "bit jtem; 
— ^ unsigned mt •temp^counier; 
unsigned snon temp_map. 
teat •noatmgjtem. float_vaiue; 

double *doubie_item. oouoie_vajue; 
cnar *stnng_vaiue; 
cnar •strmg^ptr. 

cnar fi*©d_stnng_vaiue[FIXED_STRING_ LENGTH). 

101 current_posnipnsO. 

2 0 stnjct vaiue_node Voot^nooe * NULL, 
struct vaiue_nooe tail Jiooe = NULL. 

string^ value = mailocffielojengtn*U 

CHECKALL0CATl0N(stnng_vaiu8. "strmg^vaiue snow^vaiue^aistnouttoritn. 
temp_counter = vaiue_bitmap->stan; 

rf (cuery_mo3e s» purcnase) 
temp_map = purOi map. 
25 else 

if (ouery_mode == prpauct) 
temp_map = prd0l_mao. 

num_bits = value_bttmap->numper_of_oits. 

swttcn (field type) 

{ 

case cnaracter 

3 0 PROCESS_PBITTABLE_PARTj< smalLmteger item, unsigned cnar • ) 

u Cpur_pro.count)*^, 

Iseekf file jd f»le_tocation.O). 

sonnmfiieo.stnng.vaiue.'^c-. nsmaii_tnteger_item*mm))); 
wnteffuejd. fued_strmg_varue. sizeof(tnt)). 
file, location *= PAGE_SIZE. 
curreni_posrtion = stzeof(mt). 

PROCESS_PBrr_TABLE.PART i 2( smaHmteger_,tem. BITMAP INTEGER SIZE 1 ) 
break. " '* 

case small_mteoer 

3 5 PROCESS>B!TTABLE_PART_1{ smalLmteoer.item. unsigned cnar • ) 

("pur_pro_ccunt>~. 



file 
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tseek(fiie.td.fne.iocation.O): 

sprmrf(f«ea.stnng_vaiue.' , %4d , \ nsmaM.integ*r_rtem*mm))). 
wmelfiie.id. (cnar ')f«ed.smng.vaiue, saeof(nij), 
file, to canon *= PAGE.sizE. 
current position = saeof(mi): 
5 PROCESS_PBrrjrABL£_PART_2{ smaiuntegerjtem. BI7MAP.tNTEGER.SIZE. 1 I. 

break: 
case on.type 
case targe.mteger 

PR0CESS_PB1T.TABLE_PART_1( large.integer.item. unsigneo mt * ). 
- ("pur _pro_count)**. 

tseettfife_id.file_iocatton.O): 

sprtntf(rtfeo.strmg_vaiue.^10d". n\»rge_tn\9g9r^Mw*mm))i 
wrneffite.id. (cnar *)foted_stnng_vaiue. fieidjengtri); 
fiie.iocation *= PAGE.SCE. 
2 0 ajrreni_posmon = stzeof(mt): 

PROCESS.PBITJABLE_PART_2( large_mteger_ttem. BITMAP JNTEGER.SIZE. 1 ). 
brea*. 
case dollars* 

PR0CESS.PBIT.TABLE.PART_1< large.integer.item, unsigned tnt • ); 

(•pur _pro_countK* 

tseeKffiie.id file.location.O): 

mteger.vaiue s (*(targe.mteger_item«tnm)): 

double, value = (double Hntegerjvames 100.0; 

n c spffnrfffaea^stnng^vatua .^7.2T, (ooubletooubie.value). 

XD wnteffMe.ic. (cnar •rfixed.stnng.vatue, saeof(mt)j! 

file.tocanon ♦= PAGE_siZE. 

current_posrtion = sizeof( double): 

PROCESS.PBITJABLE_PART_2{ large.mteger.rtem. BITMAP INTEGER SIZE. 1 ). 
break: 

case lloatmg_pomt 

PROCESS.PBfT_TABLE_PART_1 { targe integer nem. unsigned mt ■ ); 
{•pur _pre_coum^- 

iseekffiie.fd.fiie.location 01 
2 0 «ieger^ v aiue = ('(large integer item^mm))). 

Hoat.vaiue = (fk>at)integer.vaiue/100.0. 

spnnWf«»d.3tnng.va»ue "%7.2T. (float Moat value), 
wntefftie.ia (cnar •*ifiiec_stnng_vaiue. saeotiintj). 
foe.iocauon PAGE.siZE. 
current _posrton = uzeof(ttaet). 

PR0CESS_PBIT_TABLE.PART_2( iarge.mteger_iierrt. BITMAP INTEGER SIZE. 1 ). 
break; 

~) - case negative float 

PROCESS.PBIT_TABlE.PART J ( targe „neg.mtegBr_RBiTi. mt * ). 
(*pur_prd_count>** . 

lseek(f»ie_Md.fti©_*ocatton.O). 

neg.mteger_vatue c ( a (!arDe_neg_mieger_flem*mm)}. 
fkoat.vaiue = (float >neg_mteger_vaiue/1 00 0. 
sprmrf(fnea_stnng_vaiu«."%7 2T (float Ifloai.vaiue). 
wnte(fi»e.id. (cnar •tfaec_stnng.vBiue. sizeoT(mt)). 
fije.iocatjon •= PAG E_ SIZE, 
current position » sizeofffioat). 

3 0 PROCESS_PBn.TABLE.PART.2( large. neg.integer.ftBm. BITMAP JNTEGER.SIZE. 1 ). 

breaK. 
case meoium_ integer 

PR0CESS.PBIT_TABLE.PART_1( medjurn.mtagar.nam, unsigned snort * ), 
(•pur _prd.count)**. 

lseek(file.id.ri»e.tocation.O): 

sonmf(fued.stnng.value. M %4d M 4 (*(medium_m!eger_nem*mm))). 
wmefftie.io. (cnar Ifured.stnng.vaiue. saeol(mt)). 
fiie.tocauon ♦= PAGE.SIZE, 
_ _ current_posrtion a stzeof(mt); 

5 PROCESS_PBrT.TABLE.PART_2( medium.iniegef.nem. BITMAP. INTEGER SIZE, 1 ); 

break, 
case fRed.stnng 
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PROCESS_PBrTTABLEJ>ART_l< niedn^.riteoerjtem. unsigned snort • ). 
( purjsrd.count)**; 

ls«e*(fo_id.fi»e_»ocation.O); 
«nng_vaiue = mauoc/f»efdJengtfv*1 ). 

CHECK_ALLOCATION(stnng_vatue. *sinng_ value Routine wnte_vaiue_oatneuticnr n. 
5 stmcoy($tnng_va!ue. fixeojitidffield^offsei^fixeo^sv^plt^meojum^^ieoe^item^mm))] 

•>strmg. field jengm). stnng_vatue(f*io ienaft)=V- 
wrae(fiie_ta. stnng_vame. field.iengtft): " 

free ( strmg_vaiue ) 
strtng^vaiuaTs NULL: 
fiie_ location *« PAGE_SIZE; 
currem_position = field »ength- 
^OCESS.PBrr.TABLE.PART^fmeoaim.weoef^em, BITMAP JNTEGER.SIZE. 1 ). 

2 0 year_month: 

case year monm day 

(^S5iT)$- TABLE - PART - 1( un.v-a .non • ,. 

iseeWfi>e_icj.fiie location.O) 

STr 9 ^ ^"' ^^Jo^aate((-(med t um integer item*mm))r 
wnteffiie_id. (cnar *yf«ed string vame 10) mm m^ 

^location *s PAGE.SCE. 
curTeni_posrtion * 10 " 

1 5 J r ;° CE SS.PBIT.TABLE_PART.2( m.o,um_,me 9 er_„ e n, BITMAP_INTEGER_SIZE. 1 ). 

case stnng type 

rtur^fcf > !. rr - TABLE - PART - , « ««"■• «r • ,. 

Iseek(mejd.filejocation.O). 
stnng^vaiue = maijoc/field iengtn*i) 

stnng_vaiue(fieto_tengtn)a"\o* " * 

wnte(lne_to\ strmg_vaiue. fieid_ length), 

free ( strmg_vaiue ) 
stnng_vaiue = NULL 
f»Je_iocation ♦= PAGE.SI2E. 
BO „ M(> ajrrent_DosjTron = fan lengin 

PROCESS.PBfT_TABLE.PART 2( stnnootr BITMAP iMTPrpo cttct 

breaK. »*"ng_pir. onMAP.iNTEGER.SlZETieJa.iengtn. fiela lengrn ) 



25 



) 



) 

retumj current .position) 



^ THIS ROUTINES HAVE BEEN OUT OF SYNC WITH THE DISTRIBUTION. PLEASE CHECK THE VALIDITY. 

30 r 

This routine a not being used currently 
^ This routine writes multiple field vaiues on to e file However, the values are written one row at a time 

ntfwnte field dtstnouuonO 
{ 

"t status: 
**t cnan: 

35 
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wua «aams_rano6 retjor. 

«ruct field_entry field. 

fHe_ioeationoidJocaiJon=0.otfset*i^ 

5 «« r Inum^fecorw; 

cn * r null bufferfPAGE SIZE] 

vaiue^node ^Jistnouiion; 

cnar ■buffer 

cftar m$gL0uffert132]; 

"? f»ea_offser=0; 
*rua ouefy.tnfo •query_tree_neao* NULL 

*nt * i, nf1 „, 

w ly d i, 

cnar tengtn_strf801; 

reference count*0 

1 0 enum »ur_pna_ouery_type Query type 

enum pur_pra_type ouery~mooe 
unsipneo mt purj>ro_counr=0; 

*ength = get J»eldjength(); 
*pnntf(iengtn_str>*s%<r. "mrss", i«ngtn): 



15 



20 



* (master_ccunt = 0) 
{ 

. strcpwrnsg^bufter - 0ue ry d« not produce any results VTl 
strcatimsg^utter "Mo distribution created vn^-j 1 
tt (DISCONNECTED) ™ 1 

m *9_Ouf_)rter (msgLOuffer); 

eise 

pnntff%s". msg_buffer}; 

^ wumfSUCCESS). 
else 

num - recoras = co^LWLPnstmaster.bitmap). 

forfisOiKPAGE.SIZE-l 

nulfjbutferfi) = • • 
nu!i_butlerfi) = vv. 



r 



25 ( 

if <ermo =» ENOENT) 
{ 

t (to /fo," 5 ' Crea " M,e ='-' ,e '«- F| LE_WRtTE. .ength.str,. 
{ 

j error.,*™ (F.LE.CREATE.ERR. ERROR. NO.STATUS. 
else 

30 ( 
u for(r=0 ><nunwecorcs 

writcff,ie_ia nuii_t>ufter.PAGE SIZE). 



) 



•/ 



r tne filename rs ouitt in this manner •/ 
$prffitttmsg^f.ie„puwer. Mmte.dir ouery.fiiename); 

Stf * < oT (mS9 » f,le - bU,,er - p ^-VVRrTE. lengtn.str,; 

{ 
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* (JDMO^ CONNECTED) 
) ^--^'^-CREATE.ERR ERROR. N0.5TATUS. ^mjmn 



{ 



r ma first Hne ts me fiew.name ana me see™. ^ ~ 
ftum.recofos * s 2 wond hue is the unoemne •/ 

fOf{ i=0: »<nuffi_ records 
wrrte(fri6_io tnu i^ auffer PAGE_SIZE), 



10 " «<»uery_tre«_he M == HULL) 

^ry_„ee_ ne , 0 . (empQ; 



15 



} 



(**a = tarnoo-»fiaia: 
f mao Ma«n file •/ 

* (o.erronnatus)) ' *" uor - f «w-»vw>. fiaio-^numear of bncxs) 

"nrjmam (map open ERR erhod 

- eVW. ERROR, natus. i*n.e.f», e _ 0 „ mDutlw ,. J 

/• •« (tart Morns et oata points •/ 
2 0 fiato-oata-nem. . rmgr.iun; 

Mfi.jo-.fi.wjyp, « fnteo 

fwto offset = get fuea «T«««^1 

»«.ruec_sinn LO ffset(fw»o.>f*»o.namej. 

J»to.locat.on s old_iocai«n 

r searcn for value oistnouuon •/ 

25 100,1 m "»-~»Jm Mlcj to see now ^ wme » oon. and out m 

^ff^.file.iocation.0, " ~ * 

wnte(fue_id. (cnar *)f»ew.>f^ tc la^, . tfMir (- , 
to.tocauon — PAGE.SIZE * w enffietd->fieJd_.abeg) ; 

(MMfila.id.riHj location 0) 

0 * 'j'** nemp '''* , **'*W_name. "CUS". 3)) •* 0) 44 

( Purcnaae.ouwy 44 <Utmcm©ff,.».»f,aio nam. -pub- ■»« „. 

aacint(fi.H L, fi . IB _ nwB ^ 3 4r...,.n a) _ coum): 
» ((«memp(fiei»*f l aio^nan»a. "SUB*. 3)) == 0) 
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o <fstmcmo<fieio.>fietd_naroe. -pyR- 3^ rs 0) 
ouery_moqe = purchase, 



if{(«tmcmp(f»e».>fieid name "PRD" 3))«« 0) 
5 Quefy_mooe s proaua, 

weryjype « reference_count. 
^wncn <Query_rype) 

case avg_pur_prd . 
case toxai^purjjra : 

strcpyimsg.outfer. *Vi\nNOTE.VT), 

if (Query.mooe « purenase) 

^trcanmssLDufter. T>mrouuon for Average or Total Purchase has not ye, been .no.emen.ea vr,. 

s treat fmsg_ butler. "Distnoution for Average or Total PpMua hit ^ 
strcat<msg_outfer. Tiease contaa tne Om^Z l^ X^m™/^ ^ tfn0,ememed 
if fDM0_CONNECTED) ^ Lm Prooucl Manao « r aates ww). 

msg_Duf_jrfer (msg buffer), 
else 

prtntfRts 4 *. msg cutter) 
retumfSUCCESSf 

15 J 

^location = wr,te_pur^pra.v 3 ,ue.o»strfwe^r0 toe location f, e to.»oata 

f-etof.eta.ryDe. fceioWreio.ena. fieid.oftset master bitmap ouery moam 
} &Dur_cr 3 _ =0unt) - wer r.mooe. ouery_,y Pe 

etse 

{ 

filejocation * wnte.vaius_oistnoutionrf,.e^ia f»ie_ location f.etd-»oata 

fieio->f.eia_ryp«. f.eio->fieic_eno freio.offset. master_b,tmao). 



fUejocation ♦« offset. 

oto. location *s fiie.tocation. 

r unmao section fne •/ 

status « tmmaoCioseFiieicnan. iretacr} 

if fis.erroft status n 

error_nanoier lUNMAP_CLOSE_ERR ERROR siatus •Twr*eJ.etc_o>striouttorr) 
} 

ctoseffde.id) 

if (query tree nead ♦= NULL) 
{ 

free_parse_tree 1 Que ry_ tree _ nead). 
freet Query tree nead). 



3Q retumfSUCCESS). 
J 



r 

Thts routine searcnes tne segmentation field values m the Oatabase and for every non-zero value m tne 
dataoase a on ts set. 

•/ 

•two bitmap •penefate_oata.bitmap 4 valMe. f«W.name. file offset value bitmap) 
unsigneo snort "value" * 



-3 c Tieid.name; 

« unsigned mt fiie.offset: 

struct bitmap *vaiue bitmap' 

{ 
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unsigned vit I, i k; 

unsigned nt j, 

untuned rw num_bits; 

unsigned anon *meamm_tnteger_rtem; 

unsigned nt 1emp_cDunter 

5 rt max count; 

•true bitmap temp_bnmap; 

if ((temp_brtmap = create_bitmaDf value bitmeo-»numDer of btts)) NULL) 
trTCf - hana * r (BrrWAP.NOT.CREATE, ERROR. NONSTATUS. "Vaiue m <ger*rBte_ M t a _brtmap>- 

temp_counter ■ temp_brtmao->stan: 
num_bas = lemp^bitmap^numoer^of^brts; 

Wc«BFTMAP INTEGER SIZE 

10 8*1; 

tor ( i*0; knum bits; i** ) 
{ 

rf(*vaiue) 

{ 

temp^counter j= jj; 
value** 

15 



»(-kk) 

jl«>i : 
else 
{ 

temp_counter**. 

j * 1; 

kk * BITMAP JNTEGER_SIZE; 

) 

2 o retum(temp_bitmap); 
) 

r 

This routine resets trie database values tor this field to zero 

•/ 

mset_secmentaiion_vaiue( value. field_name fite_oflsei. value bitmap) 
unsigned snort Naiue. " 



ir 



*Tieid_name. 



unsigned tnt fiie_offset. 
25 struct oitmap Vaiue bitmap; 

< 

unsigned mt i. j. k 

unsigned mt 4. kx. 

unsigned mt num_bits. 

unsigned snon *meotum_tnteger_nem: 

unsigned mt "temp_counter; 

max^count. 

2 q lemp_counter « vaiue_bitmao-> start. 

~ w num_oits » vaiue_bitmap*>numt>er_of_bits; 

kk » BITMAP JNTEGER_S1ZE. 

il« 1; 

tor ( i«0: i<num bits: »*♦ ) 
{ 

jfflemp^counter) 

{ 

35 if nemp_counter & ij) 

•value e 0; 

value**; 
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esse 

5 { 

temp counter** 

11= r 

♦w = BmwAPJNTEGER SIZE 

) 

) 

riemp_counter =s °- bump past whole word 7 
else 

{ 

1 n value * s BITMAP_ INTEGER SIZE 

BITMAP_IWTEGER SIZE -1. ' 
temp_counter** 

} 

} 

) 



r 

1 5 - ~" ■ —* ■ - f^stnn, arra y m tnen wnnen oac* to tne 

Wt.f«eo.$mn L to(fteia.name. file.offsei ma* count) 
™ Tieio name 

unwoned v\\ fite_offset; 



20 



P majr_count: 

im i; 

enar fiienamafFlLE.NAME.LENGTH]. 
F ICE Tf. 



jonntfffiiename "FIXED FILE DIP <^ 



r read the feed string f,* information 7 
fpnntf (ft. "HoVT. ma*_count). 
for Ksniai coun" »♦*) 

etse 

( 

) ^.^HLE.NOT^OPEN. ERROR. NO.SJATUS. f,*name). 

ffciose(ff) »s EOF) 

) ^'LE.NOT_CLOSE. ERROR. NO.STATUS. Hmmm. 



7 



Tn«i routine open trm fi»«* ...... , 

tmm , 

ffit i. max_counr=C 

™ £™ e J F 'LE_NAME_LENGTHj. 
wnnWf.lename. TIXED FILE DIRtt* «»»- r. . 

*J««Wr.OW t ERROR. KO.STATUS. f^y 
ffciosefff) or EOF) 

} ^mSr fF,LE - N0T -^E. ERROR. NO.STATUS. fi,^.,; 
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r 

Tha routine is currently not being used 

Intended to gnf tnm next vwu* in tne fu^fiewffnid^iat^faad.stnng array ma: is not occupioti (=NULL) 



•/ 

r « tOBi.fa^.«nng_mix_count(fiia_offiot) 
unsigned an We_ofts«t 



m 1=0: 

n fixod^count^Oi 

whiit (fa#d.f*ld(fi*e^ofl»et)->f«»d_«nrio{M^J *« NULL) 
fnod^count*"*; 

retum( * +fnod count); 

10 ) 
r 

trtsefl_segmentatJon_nrormaiion() - wilt cneoc tha suoer_master_bftmao. and tor ©vary bit sat. 



15 



30 



tna oataoasa will be uooatad. And. in addition . tna fueo 
t tnng fiie associated wrtn ma ftatd will be uooatao wnn 
tne moi (i a ma 1 or 2. depending on me vaiue m me OB) 
and tne neyuoe mtormanon. 

Note tnniairy me oataoasa will be uooatad wnn a i ano all 
suoseouent nits W* increment me count. 

•/ 

ruen v seomentation w fftforrnation(value. field_name. file_ottset. vatue_brtmap. Query_keycode_upoer) 
unsigned snon •value: 

1»eld name. 



unsigned tnt fite_offset 

struts bitmap *varue_onmaD 

cnar *ouery_*eycoae_upper. 

20 { 

unsigned tnt i. j. K. 

unsigned tnt j). *x 

unsigned tnt num_bns 

unsigned snort •meowm_integer_nem. 

unsigned tnt •temp_counter. 

tnt majt_count. 

*tt bft_set»0. 

rf(fito_offset*=-1> 
25 fiie.oftset * creaie_fueo_stnng(fieid_name). 

rf (feset_segmentat!orn 

r set me maex tc i v 
max_eount = i 

else 

r pet tne test moex */ 

majt.count « g«_fued_stnng_ma*_count<fieid_name), 



temp_counter ■ value_bnmao->start. 
num_btts ■ vahje_bnmap->rturnDer_of_biti 

W<« BITMAP INTEGER SIZE. 



for ( i=0; Knurn ons. **♦ ) 
{ 

ifflemp counter) 
< 

35 if (lemp_counter & jj ) 

if (Varue ==0) 
{ 



» 
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brt_set « 1; 

•value » max_count 

ff (f««o.^»cidffjie_oftsBl}->f«ed_string(*vajue) cs NULL) 

^ f«eo_fieidffiiB_oftsetV>inoi_count»* 

f «eo^*wifuc^off»etj->faealsir»ngI%aiu«| = {struct faed^strtng^vatuejype •> 

maiioc tsaeoft struct fuec_string_vaiuejype)I. 

CHECK_ALLOCATlONffrted_fieid|fi»e_oft»at}.>f«ed_$tnng{*vaiuej. 
Tutcd^fieW|file_otfset}->faeal$inng Routine inser_segmeTOation_tntorrnatwn(n. 

strcpylfuTeo freld[Me_ottset}«>fuea strmpjNaiue)-»sinng. cuery_keycooe upper). 

) " - 

else 

strepyftaed fieid(fiie offset }.>fwed string; Valuer^strmg. ouery_*eycooe ucoer} 

10 ) 

else 

error_nandier(COLUMNJ3ATA_ERR. ERROR. NONSTATUS. NO_STRING). 

fueo_fietdrf»ie o«set}->fweo stnng[*vaJue).>oit seiecrsO. 
} ~ 



15 



20 



30 



rf(-kk) 

!/«= 1; 

else 

{ 

temp_counter**. 
kk s BITMAP INTEGER SIZE 

) 

) 

r temp_counter « 0. Pump past whoie word •/ 
eise 

{ 

value ♦= BITMAP INTEGER SIZE 
. ♦* 8 ITM AP_ INTE GE R_5 IZE -i . 
temp_counter»*. 

} 

) 

K {&ii_set) 

25 onnt tne vatues tc " 

prmtj«eo_strtngjisiii«eid_name fne_oftsei. max_ count). 

) 

r 

Create_seornentauon<) - wiu u«a tne waon ft* of me field seieaeo. ana upoate 

the pits 

•/ 

create^segmentauonffietd) 
struct field entry nwto 

{ 



rt status; 
rt cnan; 
struct adoress.range retaor. 

unsigned tni fieJd_ot*set * -1 ; 

struct Bitmap **emp_04tmep, *data_ojtmap; 

35 cftar •P^J*«y»ae_upper; 

*"* segment t 

buffer! 132); 
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<«»nonp(f«»^fiSio.fi»m«. TUS.SEGr. 8) «« 0)) 

*enan. Aretaor. f*io->voa fieK^numov^cf^btocxs), " 
if (»_am>rf status)) 

mrjimw (VVRITE.MAP.ERR. ERROR, stilus, ^pp^ 

r sat stan aooress of eata points •/ 
f«IO->aata->fiams » retaar.staa 

fiekl_oft*et c ©•Lfaeo^stnng.oftaa^fialo^fieid^nania); 
Query_»teycooe_upoer = strtouppart,Quan/_keycoae); 
if (reset_segmentation) 



15 



20 



if ((tamp^bnmao = create onmapfsuoer mast*r km-.—. ^ 
error_nano,er (BITMAP_NOT_CREATE ERROR wST 0 "^" ~ NULL) 

pnnifClnrtiaiaea oitmap count is *dVT. com^sw ^n^^J^ BSI * f " ^■»«.«*™™™«">-). 

r the complement of me bitmap is oone so that ■ , 
»nrtreon» WMnM e «map coum « e OU ™_« M _ blU(l . mp _ !Mtmv)) . 

wiei_«epmemation_vaiue<fiald-»daia^it»m$ f»lo-.f-io nim . _ 
pn-HtaMt oamao eoun, « „„„ A>£££X£^ " mD - Wm "»- 

r insert segmentation information •/ 

■nsen.segmentation^tomiation(f,e»o^o a ta-> rt ems. fieloofietd name ^ 
woer^masie^o,tmap. " B ' f * ,c L°«s«L 

Query^neycooe_uppen; . 

^ T svp . cnanges neeo to De verified •/ 

So!ScTlD 9 , men,8,,0n BM W ,0r ** ■ —*J"»~jm.. mmmjam 

msg_out_xter (Duffer) 
else 

primes", outfer) 
} 

eise 

( 

*" r • Dumas o' tne oata column •; 

teme onrnai = cwn 0 .em e n ; _ Dl tmao(oaa Bitmam 

m Cemo-men: Mnias „ %tftfv eo u n l .„,_ 0 „„„ fI>0 DlImaD)) 

3 0 Ma,ler AN0 T emp in <crea!e_seomentation>") 

segment count = count «•»» hitcn^. 
mm«r-A« _ 5e _oitsnemp ottmaD) • 

Pnntf( Anowitn tne master oitmao truThn^I-L 

tmap. tne Onmao count is %oVT. segmen L count). 

r r «vp - cnanges neeo to oe vented •/ 

msg_om_irier (Dufter) ~ ; * 

erse 

35 Pnntfr%s-. puffer). 
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r risen segmentation nformatton "/ 

wen_»egmem»ion^«tomneiion(<ie»o^oet»-»ftefnt. fietO->fieid_name fiete_ofts«i. temp_Dftm«c. 
ouery^keycooa.upoer). 

) 

r unmao season file •/ 

status a unmaoCioseFtle(cnan, &retaor). 

if <u_erron status)) 

error^nanoier (UNMAP_CLOSE_ERR. ERROR, status, -create^segmenatwn"). 

free(ouery_keycooe_uooer): 
Query_Reycooe_uooer = NULL. 

retunVSUCCESS). 



eiror^nandief (SEGMENT ATI0N_ERR. ERROR, NONSTATUS. WO_STRING), 
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Appendix D for U.S. Parent Application 

DATABASE LINK SYSTEM 
BACKGROUN D OF THE INVENTION 

Filed October 22, 1993 

10 Appendix D: Set of Routines which Manipulate Bitmaps which 
Used in Holding Results of Queries Against Datasets . 
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IZZ T, ejs -P° r - OOTl - r OPENMAPFILE channel for customer to ourcnase mao count oata 
122 Z ^-^- Cnn .'- »• OPENMAPFILE manna, tor eustom.r to orooua mao L^ca" " 
extern m. pur_pro_enn.; r OPENMAPFILE cnanne, tor purwase to prooua mao count oata V 

' ScL J 0 B SEr S, - r8n9 " CUS - pur - Mar - r aM '" M » »* T «o Purcnas. WcRnM (of OPENMAPFILE. 
UNMVCLOSeT"""™ 9 * aa - pf0 - aoor - r »"»•**•» of maooeo customer to orooua mao count oata tor OPENMAPFILE. 

UNM^^ s "/r M -' 8n0d PUf - Pr °- 800r r aaa " Wi 01 »*°*» » procuc, map count oat, for OPENMAPFILE. 
r flush flags mark if mao count oata a maooeo or not. Atwav* n .m<~. 

allowing oynamtc map .no unmao. <rf o«ete_pur .nTaT^l ^* «"■»«*"» oew._pur_nfo nag « on. for 
extern m« eu»_pur_mep ; r fiusn flags i^TaSpea 0^.3 a-JT? 1 m " 0oeo ' n0 *»v * ° *' 

extern tm cus _pra map- r flush flans t = m »r«!« a! maooea ««««»er to purchase mao count oata •/ 

«,em m ,p u r^; m ' p e - ESSttZEZ^:'™*™™ 
1 0 ™w»o u-not mapped, customer to purcnase mao count oata •/ 

T Mocuie contains the following routines 
struct oitmap •create_bnmap(numoer of items) 
void free_brtmao|map); " " 

mt count_set_ons(map); 

mt vaiioate_5.tmapsjor_operat»nf mao one mao two) 

mt comDine^o«Tiaosimasier^map.con,uTKsion.maB two) 

void ccoyj>rtmaps<map_one.map two) 

mt petottfword. n); 

mt pnnt_brts(worasae); 

mt write_bits(fitename. wore. $ae); 

mt oisptay_brtmap<map). 

mt wme^oitmaptmap, filename), 

voio toacj_oitmaos(). 

void ioaa_pur_pra_maos(). 



20 



r Bitmap structure 



numoer.of.bits * number of bits used in map 

numoer.of.mtegers * number of unsigned mteoers useo to mens tne bitmao 



25 - 



sun points to mt 1 
mt2 
mt3 



enopomtsto iaatvtt 
Z ^^-numb^ofbitsus^for bitmap m mteoer pomted to Pyend; 
^ ^ I numbers * (nump^.of.mteoers - BITMAP_INTEGER_SIZE) . (Bm^P JNT EGcR.SI2H - end^s, 



r 



2 CREATE_BITMAP 

- SO?* bmn **" •" ocw • " n0 »* neeessarv soee. to, . 

. b,BB » «««». oaseo on m. customs W * C " l ° f 

35 ~ FORMAT 
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- MOOULE: BrTMAPSX 

2 MODULE DESCRIPTION: 

Z 5** ****** **** manipulate bitmaps wrncft are used ri 
s _ nottng mum of quanta spam oataseu. 

- AUTHORS: 

" Kally Westman Digital Eoujoment Corporation 
_ SusndPrflai Digital Equipment Corporation 

2 CREATION DATE: 7-Auguat-1992 

- DESIGN ISSUES: 

m PORTABILITY ISSUES: 

- Nona 

- MODIFICATION HISTORY: 



15 - 



7-AugusM992.0ngmaf 
&-SepM 993 - Chuck Maimskog 

• Free^bftmao oeanuo 

- Removed atfoef DEBUG to make cooe readable again 

• Update errof^nanoiert) calls to mduoe ERROR message type 



7 



20 



- INCLUDE FILES 

7 

ameiuoe <stOio> 
amciuae Toe ^prototype" 
•mciuoe •Tac_mum_flle' , 
_ _ * ,nc,uoe Wclerrornumoers ir r for error_nano»r formation 7 

r External Declarations 7 
extern mt max_numoer_ efforts 
eatem int mai_purcnase_o<ts 
extern mt max_proouo ens. 

extern mt bit_eounts|256). 

f* *or purcnaie eno prooua seieaton 7 
extern mt *et_suosiOjary; 
u extern mt ie!_purcnase. 
extern mt set_proouct. 

extern unsigneo mt oeiete_pur_mfo. 
extern unsigneo mt aeiete _pro~mto 
extern unsigneo mt oeiete_pur jsro^mfo. 



35 
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— struct bitmap •cfaeje_bitmap< unsigned nt numoer^ofjtems) 

- ARGUMENTS 

™ number_of_ items 

the number of Hems wnicn will be held m the bitmaD Each rtem 
is given a on. Therefore rtumoer of items = number of aatve bits m 

— the bitmap. 

- RETURN VALUES 

** x • a pointer to the bitmap structure created. 
~ NULL - the bitmap was not created. 

•/ 

struct bitmap •ereate_bitmao(riumber_cfjtem$) 
unsigned mt numoer^of.rtems; 

{ 

unsigned in! •start = NULL: 
unsigned tnt "end = NULL: 
unsigned snort end_bns = 0; 
2 5 unsigned mt numoer jo_a»ocaie = 0: 

unsigned mt numoer_oi_Drts; 

struct bitmap temp; 

number_of_items = max_number_of_brts. 

r make sure this is a meaningful call */ 
H( numoer_of_rtems == 0 ) 
retum<NULU 



20 



25 



30 



35 



number_of_bits = number_of_«ems: 

r determine numoer to allocate tor pitmao •/ 
numoer_to_aliDcate = numo*r_of_Dits/BlTMAPjNTEGER_SlZE. 

r add additional integer for remaining ons ano sei ena_btts 7 
rf(eno bus s (numoer of bits % BITMAP INTEGER SIZE)) 
( 

numoer to aitocate*=V 

) 

else 

< 

end bits = BITMAP INTEGER SIZE. 

) 

stan 9 (unsigned mt ") catioci numoer jo_aiiocate saeoft unsigned mt)). 
CHECK_ALLOCATION( stan.' stan. Routine create_ortmap(n. 

eno = stan * (number jo_aiiocate - 1 ). 

r allocate struaure for return •/ 

temp o (strua bitmao ') manocisizeoff struct bitmap)). 

CHECK_ALLOCATION(temp. lemp. Routine create_ortmap(n. 

temp- > stan = stan. 
temp-*Bno = eno 

temp->numoer_of_bits = numoer_of_bfts. 
temp-»end_bns = enc_oris. 

retumftemp). 



) 
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2 CREATE_GENERAL_BrTMAP 

2 general bitmap wdi allocate and mmatne the 
bitmap structure. 



for a 



FORMAT 
struct bitmap *i 
ARGUMENTS 



*^^ne» L b«ma«unsipned wn rxjmber.of.items) 



** number.ef.items 



- TJ^"?™™** ■* * « «• Bonn. £«* «.„, 



the bitmap 
RETURN VALUES 

huu ' * ^!L r 10 t>rtmap created. 
NULL . the bitmap was not created. 



15 



20 
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struct bitmap •create.general bitmap/number of 
unsigned «nt numoer^Bems" nems) 



{ 



unsigned mt •start « NULL: 
unsipned mt 'end » NULL: 
unsigned short eno_bits = 0: 
unsigned mt numbeTjo allocate = 0 
unsigned mt numoer*of~bits. 

struct bitmap temp; 

r make sure this b a meanmgfui can •/ 
if( number_of_items ss o ) 
rerumfNULL): 

number.of.bits e number.of.items. 
r determme number to allocate for bitmac v 
numoer.to.auocaie * number.of.brtWiTMAPjNTEGER.Sl2E. 
r "00 additional integer for rmmamm* m. - 

number to allocate* si 
etse 



} 



end.bits = BITMAP.INTEGER.SIZE. 



iwen. stan. Kouime create.oenerai.oitmaoO"). 
•no = start ♦ inumberjo.aiiocate - 1). 
/• allocate struaure for return •/ 

CHECK.AUOCAT.ON ( «mp.- temp . Rouline ...^^^^ 

temp->stan = start: 
lemp->eno s ena: 

tomconumoer.of.bits = number of bits 
temp->eno_oits = end.bits; " 

retumftemp;. 
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r 

- FREE.BITMAP 



5 Z 



Free_bitmap wiiJ deallocate me memory for a brtmap structure and 
•at tne bitmap structure pointer to NULL 

FORMAT 



~ struct bitmap •ereate_bitmap<unsipneo mt numoef_of_nems) 

- ARGUMENTS 

struoure bitmap •mao 
~ A pointer to a bitmap structure wnrch will be deallocated. 

10 - RETURN VALUES 

- NONE 



15 
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void free_brtmap*map) 
struct bitmap *map; 

{ 

iffmap »s NULL) 
{ 



, erTOr - hana,er (PREE-NULL^PTR ERROR, map. •free.brtmap n bitmapsx"); 



else 

{ 

if(map->stari «= NULL) 
{ 

cf>ee(map->start): 
2 0 map->stan = NULL. 

map->end a NULL 

) 

freeimao): 
map = NULL: 

} 

return. 



) 



r 

2 COMPLEMEKT^BfTMAP 

Z COmp * em * nt > bttmBP waJI orocuce a complement of tne spec/fad bitmap 

- FORMAT 

~ ***** bitmap •compiement^bJtmaodtnxt bitmap -mop) 
3 0 " ARGUMENTS 

^ structure bitmap *map 

^ a pointer to a bitmap structure wntcn will po oe-eiiocated 

- RETURN VALUES 

- NONE 

mm 

V 



struct bitmap °comp4ement_bftmap<map} 
struct bitmap "map; 

{ . 
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ntfc 

in? Temp; 

struct bitmap 'eomp_meo; 

comp_map * map; 

5 temp * map->start; 

while <temp < map->end} 

{ 

tamp a -(temp); 
temp**; 

} 

tamp * map-»end. 

tor 0«0; j«map->end_brts; r*) 
10 ( 

if ( tamp & satfiityi ) 

tamp -taeiDitUl). 
atsa 

tamp |« aatbrtli); 

) 



15 



20 



25 



retum(comp_map); 



) 



r 

- COUFfT_SET_BrTS 

- count_set_brts will determine tha total number of bits set to 1 
~ n a bitmap. 

- FORMAT 

*" rrt count_$et_bits<sinja bttmap 7nap) 
~ ARGUMENTS 
~ struct bitmao *mao. 

m a pointer to a bitmao struciura tor wmen tna total numoer of 
m set bits will be counted 

- RETURN VALUES 

n tna total numoer of sot bits 

- FAILURE - tna operation is not valid on this bitmap 
7 

r 

- New algorithm of Mike Emerson s. counts 6 bits at a time 

Note: this algorithm wonts tor 32 bit mt bitmaos. and 

- uses knowledge tnat there are 4 8 bit ovtes m eacn int 
3 0 - with different size variables, tnis would need revisions 

7 

mt count_set_bits<map) 
struct bitmap 'map; 

< 



35 



unsigned mt |. ii. lot. count, 
union 
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ffttaa; 

unsigned cnarbb|4J 
>vai; 

int totai_count * 0: 

5 unsigned mt nemp; 

iffmap s= NULL) 
retumfFAILURE), 

r where start < end. tnera are atways BITMAP.iNTEGER.S12E bits to count v 
temp = map*>start; 
2 0 wntie(temp < map->end) 

iff val.aa « temp ) 

{ 

total_count brt_counts(val.bb[0]); 
tota»_count ♦= bit_countsfvai.bb{l)j. 
totai.count ♦» b«.counts|va].bP(2j]; 
^ totaf_count ♦© brt_counts|vai.bbf3]). 

temp**; 



15 



25 



30 



) 

r tost word m table may nave toss man 32 vano bns. be sure 

aw bits beyono end bits are off •/ 
if ( val.aa s *map->end ) 

{ 

|f ( (coum=map->end_bits) < BITMAPJNTEGER_SIZE ) 



20 kke ° 



) 



for ( p0; j< count. ) 
{ 

U «- 1: 

} 

r kk will nave an bits from 0 to count set •/ 



r same operation with last word in table •/ 
totai.couni ♦= brt_counts|vai bbfOJJ. 
totai_count ♦* bit_counts|vai oof 1 ]] 
totai_counr ♦* oit.countslvai 0bf2JJ 
^ totai_count ♦» bit_counts{vai.ob|3]]. 

retum(total_count); 



) 

r 



2 VALI0ATE_BfTMAPS_FOR_OPERATlON 

I t^^7^^ - bitmaos tor Compaq 

- not NULL maK6 5Ur6 they of ^ sam * *** ana 

- FORMAT 

35 

_ rt vaiitote.b«mapsJor_opei»tJons(struci bitmap •map one. 
^ struct bitmap *map_two) 

- ARGUMENTS 
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"* «buet bitmap Tnap_ooe 

" a pointer to a bitmap structure 



•true bitmap "map^two: 
~ a pointer to a onmap struour e. 

" RETURN VALUES 

Z SUCCESS ' 6,tmap ^aP.one and bitmap map two can be 
#/ r ailuke - do not use tne two maps together 

int vaUdaie_brtmaosJor_operaiionfm8p one.map two) 
«ruct bitmap •map_one; 
struct bitmap *map two; 
{ 

r make sure no one is oomg something they shouldn't •/ 
* ( map_one == NULL || mao_two « NUU) 

prmtf revalidate .bitmaps* Error - Invalid pointer vrv 
lo retum(FAlLURE) ^ ;> 

) 

if ( map.one^number.of.bns »= map_rwo.»numoer_of_bits> 

Phntf r<vai.date_bitmaos> Error - Bitmaps orffer tn size m-i 
retum(FAILURE) tte * } - 

) 

7Q ^ retumfSUCCESS). 

r 

* COMBINE^BFTMAPS 

~ Comome_b«maps «"« lane rwo onmaps ana r~ri— „ , to 

on iwn ^ »no penorm a boolean operation 

_ on me two. putting tne results mto tne first pomap 

- FORMAT 
ZD - 

^ « comowej>nmaDS(stnjc! bnmao •ma«er_map. 
_ • num booiean ooerator corvucTion. 

^ stnjct bitmap *map_rwo/ 

- ARGUMENTS 

"* *Vuci bitmap *master_map 

30 Z * DOintBf to • &rtma "° structure wncn nas previous* been ctm.^i 

2 enum booiean_operator conjunaion. 

*" trt« boolean operator to use SuDoon»rt ftr -«,«. 

aupponeo operators are and" and 'or 

*" struct bitmap *map two- 
3 _ - ««no ere«e_6amap() Tha map w.ii t» toft unenanged. 

~ RETURN VALUES 
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*» SUCCESS - bitmaps were successfully operated on 

- FAILURE - error occurred < snout d define more here) 
•/ 

5 

rtf eombtne_bitmaps (master_map. conjunction. map_two) 

struct bitmap *maiter_map; 

enum oooiean_operator conjunction; 

struct bitmap •map.two; 

{ 

unsigned mt "temp: 
unboned mt temp_two; 

if (validate brtmaos fer operation masterjnap. map_twb) == FAILURE) 
10 return (FAILURES 

temp = master_map->start 
temp_two « map_two->sian. 

swstcn (conjunction) 
{ 

case and: 
case and_wrten 
25 wnne (temp <» master map->end) 

{ 

temp » (temp & temp_two). 

temp** 

temp two**. 

) 

break; 



20 



case or 
case er_wnen 

wnne (temp « master mac->enoj 

{ 

•temp - ("temp | temp_two). 

temp**. 

temp two** 

) 

oreaK: 
case except 

25 mao_rwo = comD»ement_oitmawmao_rwo) 

temp_rwo 9 mao_two->sian 
wn«e (temp <= masier_map->end) 

{ 

temp = (temp & temp_two). 

temp**. 

temp two**. 

) 

break. 

3 0 default 

return (FAILURE), 
orea*. 



return (SUCCESS), 
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r 

- COPY_BrTMAPS 

Z C| W-«*»» will ta*. a Dnmap ma copy** ancmer bitmap 
^ " FORMAT 

^ mi Comoro jmmaoitjtnja bitmap -map one 
_ ftrua Ofimap •map^iwo) 

- ARGUMENTS 

"* atruct bitmap *map_one; 

- a potnter to a bitmap wuaura whien win be copied into 

10 * Itrua bitmap •mao_two: 

Z * to • bitmap struaure wncn wdi be coo** to map.one 

~ RETURN VALUES 



15 



«a« bitmap 'map one - ' 

Mwa Dnmap *maff iwo; 



20 



uns^neo mi nomoerjo.cooy = 0. 
"ivaiioaiB.bitmaos for or*.™ 

( -^-eperat,on,map.ooa mao.^, „ FAILURE) 

^ reium(NULl): 



it(iT)ap_iwo-»number_ef_Oits s B'TMAP_iNTEGER_SlZE) 
2r ^ numoer_to_copy*si 

^tumimemcoy(map^one.>stan. 
fflao_two»>s!arr 

nUmir - !0 - co ^«Wf ( uns, Q neo,nn „ 

} 

r 

- get err 

3 0 2 

2 0«Lbi! wtu return 0 or 1 to macete if a sow.r 

>ui»io n a soeofjc bit o set m a word 

2 FORMAT 

2 °«LtMt(un»igneO mi word, mi n). 
~ ARGUMENTS 

- unsigned mt word 
b Z ^^tocneckforaspecrf:cb«. 
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intn 

bit number to CnOCfc. 

- RETURN VALUES 

- 1 - me bit is sal 

- 0 • the on is not set 

•/ 

int getbitfword. n) 
unsigned *tt word; 
nt - n; 

< 

retumftword » n) &01); 

) 

r 

- PRiNT^errs 



10 



Z ^^wtiipnr«tr»b rtW m^ 

- FORMAT 

15 Z W Pnnt.biu(unjigned ml word, tnt sse); 
2 ARGUMENTS 

- unsigned int word 

2 *ort to pnnt i bit pattern of. 

- rtsae 

2 the sse of the word. 
20 ~ RETURN VALUES 

~ SUCCESS - the printing was successful 
~ FAILURE - the pnromg was not successful 



int prtnt_brts( wore, size) 
unsigned tnt word; 
tni s»e 

25 { 

ffU i; 

pnrrtf f "); 

f0f<is($tt©.1 );f>80>) 

if (getbrtfword.i) « o ) printfpo") 
alse if (getbit(word.i) « 1 ) prmtfm 
else 

30 ( - 

pnnrfC error printing pits "") 
retum( FAILURE), 

) 



retum(SUCCESS); 
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r 

- WRfTE_BrTS 



Z ™-^**™*»*l!*ti*ma< .wordofthespeerf*dsaeto 



rue 

2 FORMAT 

2 .** *^_to»<unsgned im word, int sot), 

~ ARGUMENTS 

- unsigned rtf word 

10 Z wor o to jpnrn a bit pattern of 

- in! see 

2 tt*«*eefthtword. 

- RETURN VALUES 

2 SUCCESS - the prmttng wu successful 
v FAILURE - the pnmmg was not successful. 



im wnte_bits(fiiename. word, sat) 
char filename; 

unsigned nt word: 
nt 



{ 

int j; 

char "bitfHe; 
_ unsigned int temp; 

2 0 FILE ff; 



C^rV^r>^^ n ™^«w*fstruet bitmap)) 
CHECK.AUOCATlON(iemp:temp. Routine wme*brts(n: 

CHECK.ALLOCATlONCbitfHe^flf.io. Romme wnte_ brtsfH: 



strcoy(bitfi»e. filename). 
25 ff ■ *open(brtfue. V), 

fprintf (fff. * 

for (i s (size - 1 ); i >s o . h>) 

* (Batbrt(word.i) a= o ) fpnrmrff tr) 
•ise if (getbit(word.i) == 1 > fpnnff(ff ' 
etse 

{ 

fpnntffff. " error onnimg bus **) 
30 returnf FAILURE ). 

) } 

fpnntf {ff, " -j; 
retumfSUCCESS). 



35 
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r 

- DISPLAY.BfTMAP 

• disptey_bitmap will display the Pnmao bit pattern on me stanoaro output 

- FORMAT 

- int c*spiay_bitrnap< struct bitmap Tnap); 

- ARGUMENTS 

•* structure bitmap *map 

"* a pointer to a ortmap structure which will ba displayed 

- RETURN VALUES 

- SUCCESS - the printing was successful. 
FAILURE • tha printing was not successful 

•/ 

int dJSplay_bitmap<map) 
struct bitmap "map; 

{ 

int *current; 
■it counter « 0; 

unsigned int lamp; 

if (map == NULL) ratum( FAILURE); 

tamp = map->start; 

whsJefTRUE) 

{ 

ifftemp < map->and) 

prmt_brtsHemp. BITMAP JNTEGER.SIZE). 
temp**; 

rf(temp < map-»end) 

pmt_bttsnemp.BITMAPjNTEGER_S!ZE}. 
tamp**; 

aise 

prmt^b!tsfmap->ena.map->end_bits). 
prmtfOn"). 
retum(SUCCESS); 

} 

prmtfOn"); 



) 



) 
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r 

- WRJTE.BmUAP 

Z wm »-**n*P wUI wnte tne twmap p.t pattern to a We. 

- FORMAT 

^ wrrte_b«map<struci bitmap *map); 
~ ARGUMENTS 

ttructura bitmap •map 
2 ■ pow ar to a bamap structure wmcft will be cbspiayed. 
^ RETURN VALUES 

Z f f;f f s * wrnmp was successful. 
v FAILURE - tne writing was not successful. 



«t wr*e_bitmaptmap. filename) 
ttruct bitmap •map; 
en*f TUename; 
( 

int •current; 
tnt counter = 0; 
unsignea mi temp; 



if (mao NULL) 
20 retum(FAILURE). 

temp > 
wntlefTRUE) 

ifftemp < map->end) 
{ 

^^(filename.-temp.BITMAP^im-EGER.SlZE); 

} 

if(temp < map»>end) 

wnte_bitsff^ename temp.BrTMAP INTEGER S12P1 
temp** - * — ***» t J 1 

) 

«sa 

3 o a^ f ^^^"«-««.«-.). 



) 



reium(SUCCESS) 

} 

prmtfrVi-): 



35 
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r 

• LOAD_BfTMAP$ 



I b " «no are of the same size as 

- ^?p"£ ^ brtn,BM Mn * W ^ any other master 



void toad bitmaps/) 

{ 

10 unsigned mt num.items. num bits num alloc 

cnarfiJe.namefFILE.NAME LENGTH •Ml 
ru nn, nn1; 

struct bitmap "bitmap file 
FILE Tf: 

char labelfF!ELD_LABEL_ LENGTH ♦ 1 J 
for ( nn«i ; nn<»set_subsidiary; nn+* ) . 

r 

•^construct name and file num per. 

*pnntf( fl^e^nam8.1)rtmap_Ot^suPS02^Pltmap.omp^nn); 

* ((ff a fopen(ftie_name, V)) == NULL) 
break; 



r 

20 Tead the total count 

•/ 



fread(Anum_«ems. s*eof<num_items). 1. ft), 

r 

^roao and create the subsidiary bitmaps 



if ( (subsio, a ry.bitmap|nn| = create, brtmapi num *ems)) „ NULL » 
25 .rror.nanomr (BfTMAP.NOT.LOAD. ERROR NONSTATUS U.name) 

num.altoc = num.it ems/BlTMAP_ INTEGER SIZE 



if (num.items % BITMAP. INTEGER SIZE) 
num.aiioc**, 

r 

• read bitmap now 

7 



35 



fr.adlsubs.d.ary^ 
) r end of read successfully opened pnmap fite •/ 

r If a given subsidiary file cannot be open •/ 

if (ft == NULL) 

( 

error.hanoier (FILE.NOT.OPEN. ERROR, NONSTATUS, file.name). 
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• LQAD_PUR_PRD_MAPS 

~ invoked by fdc_prototype as part of the toad process to read m 
•* the purchase and product count definition maps 

- These maps are created by toad program and are of the same size as 

- the master fiit. 

•/ 



void load J>ur _prd_maps() 

{ 

unsigned in! rtum brts. num alloc 
10 char file_name[FILE_NAME~ LENGTH ♦ 1 1 
struct bitmap *brtmap_fte; 
FlUEff: 

cnar labelfFIELD.LABEL^LENGTH ♦.I); 

unsigned mt *ptr, 

unsigned nt jj, kK. i, j; 

unsigned snort *sstr. 

unsigned tnt num_bioeks: 

int status; 

15 



r do ooenmaofile unless set tor flushing purchase map data if deiete_pur_mfo. 
then ooenmapftie and unmaociose is oone as pan of purchase query processing •/ 
if ( set ^purchase && !deiete_pur mfo ) 

{ 

r 256 is btocksae 512 divide by 2 bytes per short "/ 
num_bloefcs = max_numoer_of_bas / 256; 

rf ( max_number_of_bfts % 256 ) 
2 0 num_btocks**; 

status = OoenMapFi)e( T>rtmao_dir.ourOi_mao.cnr, loobar.sec". "purenase map count". 
&cus_pur_cnnl. &cus_pur_aoor, 1 , num_blocks ), 

if (is_error< status)} 

error_hanoier (MAP_OPEN_ERR. ERROR, status. "tortrnap_ainpurOi_maD cnt in toad_pur_prd_maos*") . 

purOl_map = eus_pur_ador. start. 

25 r 1st 2 records togetner contain totat a of customer recoros map count oata starts after total 7 

i = •purOi_map; 
purOl_map+*; 
j = •purOl_mep; 

t ♦« 1*65536. P to mt from 2 snon 7 

P this a of customers must matcn a of customers from masier_fiie or we arent set up 
properly tor consistent oata base 7 
if ( Ms max numoer_of_bits j 
error.handier (MASTER..MAPCNT_MATCH_FAtL ERROR, i. 

^ g " cust 10 Durcn count mismatch m toao^pur^pr o^mapsl 
pur01_map_count • i. r must set this size 7 

r will point to begmmg of customer to purchase map count data 7 
pur01_map**. 

P now create purchase bitmao of ait bits to 1 7 
P size of map is in external max_purcnase_bits 7 

if ( (purOI bitmap « create_genereij>itmap< max_purcnese_b«s )) == NULL ) 
o c error nanoier f BITMAP.NOT.LOAD. ERROR. NONSTATUS, f.ie_name). 

for ( ptr^purOl^bitmap->start: ptr«pur01_bitma>>end: ) 
*ptr» -0: 
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for ( m*0. ptrrpurOl^b,tmap^end; r<purOl_bamap->end_bits. r— ) 

•Ptr f= j,; 
il « s 1: 

) 

} 

r now for product file 7 

r oo openmapfue unless set for flusr«ng produn mao oata if detete pro info 
then openmapfiie and unmaooose ts done as pan of prooua Query processino 7 
Jf ( set _proouct && !deiete_pro_tfifo ) ^ 

r 256 is bloeksae 512 divide by 2 bytes per snort 7 
num_btoexs = mejc_number_of_bits / 256; 

if ( max_number_of_bits % 256 ) 
num^oiocKs*-^ 

Sta i^; ^ enMa > D ! ite( ^^^PrtOl.mapxnr. "foobar.sec-. "product map count" 
Acus^rd_cnnl. Acus^rojwor. 1 . num^btocks ); P ' 

15 if (»_error(status)) 

erT °- hanaHlr ^-O^N.ERR. ERROR. «au«. •*rnn^ rprt o 1 . mao . m , * te^^.^ 
prdOi_map = cu*_pra_addr. start; 

r^O^p;' 0 ^ COm " n WU " * ^ aW ° m " m. P eoum data st-« *..r tota! •/ 

prdOl_map++; 

j * *prdOl_map; 

2 0 VI ,,65S36: ^ to int from 2 snort 7 

a# ° f eu "»"«'» ™« match a of customers from master.^ 0 r we arem set up 

property for consistent data base. 7 
if ( i ■= max M numoer_of_brts ) 

error.hanoier (MAS TER_MAPCNT_ MATCH PAIL. ERROR i 

cusi to purcn map count mismatch m toao j>urj>ro_maDS-).' ' 

r win poffit to beoinmg of customer to purchase map count oata 7 
prd01_map**; 

2 5 prdOl_map_count = i: r must set this sae 7 
r now create product bitmap of at) bits to 1 7 

if ( (prd01_bitmap ■ createjpeneral bitmap< msa_product bits )) «» NULL ) 

BfTOf - n *2? ler (BITMAP_N0T_l6aD, ERROR. NONSTATUS, "prdOt bitmap in load _pur _prd maps-) 
for ( ptrrprdOl_bitmap->surt: ptr<prdOl brtmap->ena ptr+*) 
*ptr«-C; 



30 



) 



for ( i«o, uu -pi d01_brtmep->end; r<prottl_bitmao->end_bns: r+* ) 
*ptrf» ii; 

ii <<= i; 

} 



35 



r now get purchase to product mao count 7 

? ' "'"^ 44 - 1 44 ' 

r one prooua count record for each purchase 7 
r 256 ts blocks** 512 divide by 2 bytes per short •/ 
num_btoc*s « max^urcnase_bns / 256; 
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* ( rmu_purcftatt_toits % 256 ) 
num_otoc*j++; 

5 tf(is.«TOf(statut)) 

•rror.rianaJer (MAP_OPEN_ERR. ERROR, status 

t>«m«p_oir.pur_p r d0^map.cni from toao_pur _pro_maos-}. 

pur_prdOl_map « purj)ra_addr.stan: 

t * •pur_prd01_map; 
pur^pfOOI.map**: 
j c •pur_prd01^map: 

mt from 2 snort 7 

^m«s# of purchases must matena of purchasas from master fi* or we arent mi un 
property for consistent data base 7 set up 

if ( i is max_purenase_oits ) 
error_nancier (MASTER J^CNT_MATCH PAIL. ERROR i 

-purcfi to product mao count Hot matcneo in toad_pvr _prd_maps"). 

pur^rdOl^map.count = i; r must sat this size 7 

i s ISS^ST* * a,$,om " t0 ■ , " B - • — — ^ *' 

r size of map is m external max _purcnase pits •/ 

* ( <Pur_prdOl jmmao = create _oenerai_o5m a p< max purcnase bits it uni. . 

error.handier (BITMAP NOT LOAD ERROR NO static " ^ NULL } 
il = 1; kk s BITMAP INTEGER SIZE * RR OR. NO_STATUS. pur_prd 0 l_p«map m toad_pur_pro maps") 

tor ( Pt^ur^rdOI.Oitma^sirt. sotr * pur^rOOl.map. ,0; Kmax^urcnase jm,. SWr ^ _ , 

ifCsptr) 

) 

If 1 . 
else 

{ 

kk e BITMAP .INTEGER SIZE 
ptr*+. 

25 ) 
) 

) 

y END ioafl_pur_proa_maps •/ 

r 

* SET_COUNTER 

3 0 I ^reubnesn called once to rmiafaze Ort_counts array 
_ TT. 00001 rt 681 tnal »» »•« «' «tegers 1 .2....25S 
_ (*.Ohas0.1hasl.2nasl.3has2....2S5nas8 

^ brt.counts a used m a fast count set Pits aipontnm 

7 

eet_counterO 
«nt g.one: 
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{ 

bft_countsfi) « 0; 
one s 1; 

for(F0;j<8;r~) 

{ 

iffone & i)brt_counts[i)*=l; 
one»one«i; 

) 

) 

) 

r 

■•♦«► 

- MODULE: SEARCH_SECTlON.C 

- MODULE DESCRIPTION: 

~ Set of routms which manipulate global sections to be used 
" as oatasets for variables. 

- AUTHORS. 

15 ~ Kelly Westman Digital Eouioment Corporation 

- Sushi! paiai Digital Equpment Corporation 

- CREATION DATE 3-Auousi-1992 

- DESIGN ISSUES: 

~ Performs a linear search through a datasat. Does not do any sorting 

~ or presupposes a sorted order to oata. 

9 0 ~ Search routines oeoend on oataryoe of field toeing searched - evoioed 

~ function cans in middle of loop for speed 

- PORTABILITY ISSUES 

Uses VMS system calls for create mapping and unmappmg global sections 
Uses RMS attributes btocxs for file to open 



25 



30 



35 



- MODIFICATION HISTORY; 

- 3-AugusM992 - Ongmal 

w 16-May-1993 - Chuox Matmskog 

~ - Replace faii_and_eirr calls with error hanoter{) rout me 

- 24-Aug-1993 • Chucfc Matmsfcog 

- Added greater_man_equai switch code for search targe field array (} 
" 30-Sep-1993 - Chanas Matmsnpg " 
~ • Update error_nanaiero calls to inctude ERROR message type 

•/ 

r 

- INCLUDE FILES 
•/ 

#mciuoe «stdio h> 
emciuoe <stdii6 h> 
•inciuoe <ssaef h> 
#mciuoe <rms n> 
emauae <fao.h> 
#mciuae <secdef h> 
•mctuoe <psidef.h> 
•include <oescnp.h> 
•tnduoe <unuuo> 
•include <fiie> 
•inauoe <math> 
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r» include "fde_paner7 
amciuoe *Tdc_prototype" 
•induce Tdc^macrc^defn" 
5 amctuoe ldc_enw_numoers.h" 

r global declarations "/ 

extern enum pur_prd_Query_type queryjype: 

mt eus_pur_ehnt r OPENMAPFILE channel for customer to purchase map count oata 7 

mt cus_prd_enht r OPENMAPFILE cnannei for customer to proouct map count oata 7 

mt purj>rd_chnl; r OPENMAPFILE channel lor purchase to product map count oata 7 

* 

struct address_range cus_pur_addr. r addresses of mapped customer to purchase map count data for OPENMAPFILE. 
J-U UNMAPCL05E 

struct aaoress_range cus_pro_acor: r addresses of mapped customer to product mao count data for OPENMAPFILE 
UNMAP CLOSE 7 

SiSSSaSsEv^ Puf - pre - a0ar r a00resse$ 01 mapped purchase to product map mjQi oaia tor OPENMAPFILE. 

r flush flags, mark if mao count data is mapped or not Always 0. unless corresponding detete_pur_mto flag is on. for 
allowing dynamic map and unmap. f rf oetete_pur_mfo ts 0. then map counts always mapped and these flag stay at 0 7 
int cus_pur_map » 0; r flush flags, i ^mapped. 0=noi mapped, customer to purchase map count oata 7 

int eus_prd_map r 0; r flush flags. 1 ^mapped. 0=not mapped, customer to purchase map count data 7 

1$ «t pur_prc_map * 0; r flush flags. 1 ^mapped. Onot mapped, customer to purchase map count oata 7 

r external declarations 7 
r structures for fixed strings 7 
extern mt purcnase_query; 
extern mt proouct_query; 



extern struct fixed_strmg_Type f aed.field(NUM^FIXED^STRINGS); 
extern mt max_numoer_of_Dits. 

20 r ourcnase variable, product vanaoies 7 
extern mt set_purcnase; 
extern mt set_product, 

extern unsigned int delete_pur_tnfo: 
extern unsigned mt oelete_prd_mto. 
extern unsigned mt delete _pur_pro_mfo: 

r structures for bitmaps 7 

extern suuct bitmap •»ubsidiary_brtmap[SUB_FlLE_MAX|. 
25 extern struct bitmap *purOl_bitmap. 
extern unsigned short *purOl_map; 

extern unsigned mt purOl_mao_eount: 

extern struct bitmap *prd01_ bitmap, 
extern unsigned short •prd6l_map; 
extern unsigned ett pftttl.map.count; 

3Q extern unsigned tit pur_prd0 1 _m ep_eount: 

extern unsigned short •pur_prdOi_map; 

extern mt max_number_of_bits; 
extern mt max _purcnase_bos; 

extern mt DMO_CONNECTED. 

r This module coraans the following routines: 

35 anl UnmapdoseFMefchan. edr); 

int OpenMapFile(fname. dfname. secuon^name, chan, retadr. von, num block); 

void exptode_bnmaps (mjjuery_bitmap. resuJtt_bitmap. aub_eafn_bitmap, number_of_items); 

int seerch_for_vaiue( fieW.fieldl. operations, operabonsl, resuJts_bftmap); 

search jarge_arrayJor_vaJue(an^_raa compare_value. r*ext_compare_va»ue. 

ce*nparejist_vaJue.opefator. num_brts. n»sutu_bitmap); 
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n ••mwjnrtm^vrmyJorjtMturtmrmy^wmn. compare, value. neai_compare_veiue. 

compare J*i_ value, operator, num bos. results bitmap) 

mt Mrm_thm_*nwyJofjinh*(BrnyjgiaTi compare_vaJue. next_compare_vaiue. 

t m eDmpare_tost_vaiue. operator. num_t«is. results bitmap); 

art iWch.float^aTriy.for^vaJuefarr^.siart, compere_value. fie*_compare_vaiue. 

eompaiwJieMraiue. operator, num ons. resuns bitmap); 
nt eearoh_dc^le_array_for_vaiue< erray_siaa eompare_vaiue. neai_cc™pere_vaiue. 
^ compai e_bst_vaiue. operator, num bos. resuns bitmap) 

int *earch_brt_array Jor_vaiue( array_stari operator, num_bits. results_bitmap); 
ml seareh_stmo_eriayjor_vaiue(an~ay_stan, compare^vakie. length, 

searen_veiue. operator, num_bits. resufts bitmap), 
mt se«rai_fatnng_erTayJ or_vaiue{ array_stan. compare_str. length. 

fieW_offset. oparator. num_bits. results bitmap); 

ml saaTcn^mneo^strmg^for^valuel array_stan.com 

aeatfch_vatue.ooerator.num bits. resuns bitmap); 
mt saarcn_maed_fstnno^fof_vali>e(array_sua compare_str. length. fiett_otfset. " 

10 , fearen^vaiue. ooeraior. num_brts. results oitmap), 

mt saircn.tarpe.fieW^arraytarray^stBn. array_starn . operator, num tits, results bitmap) 
mi searcn_meo4um_field_anay(arTay_stan. array_itartt. oparator, num bits, results bitmap) 
mt searcn_short_field_array< array_staa array^stam. operator, num bos. results bitmap) 
mtsearcn_doubleJieid_array(array_start. array_starti. oparator. num bits, results bitmap) 
mt search JloatJwtd_anaytarray_start. array.stam, operator, num bos. results bwnap) 
mt searcn_brt_field_array<array_staa array^stani, operator, num bos. results ottmap) 
mt searcn_stnngJieid_array<arTay_itan. array.startl , operator, num_bits. 

iengm. results bitmap): 

mt search_tstnng_fietd_aTray< arrays 

^ _i Lo^set.f w oftsetl.moui^bitmap.resun$ bitmap), 

mt check JisMor_muea_strmgs( searcn_tist ); 

mt searcn_oataset Jor_vaiue( oata. oatal , fieid_type. field_stze. fiew.offset. 

field_offset1. operator. searcn_vaiue. 

searcn_vaiut_type. results bitmap), 
mt search jnfJargeJieJd_anay(array_staa array^stant. operator. 

M . mput_bJtmap. mput_bitmap1. results bitmap), 

mt searcn_rtf_medujm Jieid_array( array_stan. array_stan 1 . operator. 

mput_oitmap. mput_bitmap1. results bitmap) 
^ mt search_mf_shortJwld_arTay(array_start. array_startv operator. 

mput_bitmap. mout_oitmapi, results piimap). 
mi searcn_mT_brt_fieid_array^aiTay_»ian. array_stani. operator, 

mpul_bitmap. mout_bitmapl. results bitmap) 
mt searcn_m^stnnq_fieia^array(erray^stan. array^startl. operator tengtn 

_ . . mput_bitmap. mput^cnmapl results bitmap) 

mt searcn_mMstrmp_field_anay<arTay_stan. arTay_stam. operator, length f_ onset. 

m , _ . , Loflaotl. mout.bitmap. mputjjitmapi. results bitmap), 

mt searcn_mf^p_iarge_fietfl_arraytarray_stan. array_startl. operator, mput_bitmap. 

mout_bitmapi . resuns_pitmap. mao_count map coimtl. 

2 5 map_couru2. op_ooer cooe. pp oper cooel suo fiao) 

mtsearcn_mf_pp_meoium_f^id_array(array_sun.arTay_sum. operator, mputjmmap. " ~ 

mput_oitmapl. resuits_oitmap. map_count map_ count 1. 
map_count2. pp_oper cooe.pp oper cooel sub fiao ) 

mt seareh_mf^_snonjieid_anay< array_stan. arrey_stam . operator. mout_bitmap. " " ~ 

tnput_bitrnapi. resuits_oitmap. map.couni map.countl. 

. ^ , map_couni2. pp_cper_cooe. pp_op«~ cooei. jJd flag) 

mt March jrtf_pp_stmg_fteio_array< array_stan. array_start1. operator, tengtn. " 

mput_bitmap. mput_bitmap1. results bitmap, 
map_count. map_counM. map_count2, 

3 0 pp_oper_cooe. pp_oper_cooef. subjlao ); 

mt search_mf_ppjstnng_fietoarray( array_stan. array.startt. operator, lengtn. f.offsel. 

1_©ffset1. mput^bitmap. mput_bitmap1, resutts_bitmap. 
map_count. map_count1. map_count2, 
pp_oper_code. pp_oper cooef. sub flag )• 
mt saarcn_mf_cataset_arrays< oata. oatal . field Jype, fieW.we. field.offset, field.offsetl . " 

operator, sea rch_ value, searcn^vaiue.type. mput^bitmap, 
mput_bitmap1. results bitmap);"" 
mt searcn.mf^pp.oaiaseLarTaysf oata. oatal. field jype, fieid.sae. field.offset. field_offset1. 
3 5 operator, searcn.vatue. search^ value^type. mput^bitmap. mpui bitmap 1. 

resuits^oitmap. map_count. map^countl, map count2 oper coOe 
oper_cooel. suojiag ); ~ - 

7 



r if we go to named global sections V 

r static SDESCRIPTOR(giobai_sea«on_name.-CUSTOMER-); 7 
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UNMAPCLOSEFILE 

Unmap and close a preveusty mapped lilt. 
FORMAT 

rt UnmapCloseFte(int chen. struct address.range -adr) 
ARGUMENTS 

Own • i/o channel assigned to the ftte. (input) 

•Or -Starting eatress wr>em trw frte is rriapped. (input) 



10 * RETURNS 

Status value. 



int UnmapCleseFHefcnan, adr) 

chart; 

struct ado*ress_ranpe •adr, 

15 rt status; 

status = sysapurowsjadr. NULL. NULL); 
(w.errortstatus)) return (status): 

«atus • sysSdeltvafadr. NULL NULL). 
* (B.ermtstatus)) return (status): 



20 



) 



status « sysSdassgn(ehan): 

if («_erron status)) return (status). 

return (SSS_NORMAL); 



r 

- OPENMAPFILE 



2 NOTE: OPENMAPFILE * for reading only, use WRfTEMAPFILE for 
2^ ~ Create file and mao to the virtual address space 



write eccess 



FORMAT: 



«t OpenMaoFiteffname. ofname. cnan. retaor, von. numbtock) 



30 - 

- ARGUMENTS 



char tname: 
cnar *dfname. 
int ■cnan. 

struct address_range "retadr, 
sit von: 
int numotoek: 



fname - inout file name, (input) 
~ dfname - default file name, (input) 

~ cnan - i/o cnannei assigned, (outout) 

~ nstadr - Return address wnere tne file ts mapped, (output) 

w v&n • vrtual block number of data start 

35 " numblock • numoer of data Mocks 
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- RETURNS: 



Status vaiue. 



int OperiMapFUefmame. olname. saaionname. c*an, retadr. vbn. numbiock) 
cnar "fnam» 



tname 
•dfname: 
*sa0ion_name 



addreas_range Tataer 
numbtock; 



cnar 
cnar 
cnar 
tnt 

struct 
M 

mt 
{ 

10 ^ status; 

struct address_range in aor, 
itructFAB fab; 
struct XABFHC xab: 

r int«ec.flagssSEC$M.GBUSECSM.SYSG8USECSM EXP REG V 

secJlags=SECSM EXPREG." 

■* access_mooe*PSLSC USER; 

char •buffer 

5DESCRIPTOR(giooaL$eajon_name. season_name); 
15 xab = cc$rms_xabfhc; 

fab = ceSrms_fab; 

teb.fab$l_cna = of name: 

fab.fabSb_dns * stnen(dfname) 

fab.fabSi_fna r fname: 

fab.fabSbjns = stnen(fname); 
r fab.fab5b_snr * PABSM MSE. 

fab.fabSbJac a FA8SM_BR0. 
20 r fat} te&SCLsnr = FABSV UP!. 7 
^ fab.fabSIJop s FABSM UFO. 

fab.fabSi^xa© » &xab; 



/•fill ft *rth defaults 7 
rfiUit wrtndefautts 7 



9 /r get access 
r pet access 



7 



7 



r norms 
r extended attnbuie block 7 



7 



.status s sysSooenf&fab); 

if (*s_error(status)) return (status); 

*chan © tab.fabSljrtv: 



25 



7 



if (xab.xab$w_ffb == 0) 

numbiock = xab.xabSi ebk - 1 
else 

numbtock b xab.xabSl_ebk: 



30 



35 



in.adr.stan * 0x200; 
m_aar.eno » 0x200: 



r any program region address 7 
r ditto, can Da same as start7 



status * systomosc<4m_adr. r reouesied addresses 7 

raiaor. r addresses mapped 7 

r Access Mode 7 
r map first a variable space 7 
NULL 



NULL 
sec_ftags. 



NULL 
NULL 
*cnan, 

numbtock. 
vbn, 

NULL 
NULL); 



r idem 7 

rcnannai %/ ^ W« td stan rnapp^ 

T page count 7 
r virtual block number 7 
r protection 7 



r global section name •/ 



7 



if (o.errort status)) return {status); 
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10 



^ WW (SSS_NORMAL); 



r 

" WRfTEMAPPlLE 



Z N0TE WWTEMAPFILE - tor wn«e access use OPENMAPFfLE if reao .cess on* « 

2 Cf «e frit and map to trie wumi address space. 
~ FORMAT: 

3 inf VVraeMapFile(mame. dfname. man. retacr, von. numbkx*) 

" char tname; 
m *dfname; 
II *chan; 

^ «tiwa aooress_range Taiadr. 

w *tt vbn; 

~ int numbioc*; 

* ARGUMENTS: 

15 Z fntme - nput file nam*, (input) 

_ dfname . default file name, (input) 

-»Joct«nriel aliened, (output) 
ratwr . Return address wnera ine file is mapped, (output, 

-vtnuai block number of data start 
^ numbioe* - number of data bJocfcs 

- RETURNS: 

20 Z Status value. 

V 

int VVriteMapFiMfname. dfname. section name r.,.~ ^ 

char •fname: - aame " chan - nxmar. vbn. numbJocK) 

^ •dfname: 

chaf . •section^name: 

■m '*cnan: 

ttruct addreswanoe Vetaor 

25 ■ nI vbn; 

rt numbtock; 
{ 

101 status, 
struct address_ranoe m aor 
«ruct FAB fab; 
struct XABFHC xab; 

W secjlags* SECSM_EXPREG 

I SECSM_WRT; 

30 xabsccSrms xabfhc 

fab.fabSb.ons « stnen(dfname) 
fab.fabSlJna » mame: 
fab.fabSbJns « strien(fname)- 
fab.fabSbJac = FAB$M_put' 



35 



^taWabSb^nr » FABSM.UP^-^ 

fab.fabSb.shr ■ FABSM_SHRPLTT 

" I FABSM_SHRGET; 
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15 



taoJattft Jop « FAB*M_UFO; 

status e sysSopenf&fab): 

if (a_error(siatus)) return (status): 

•chan « fa&.fabSi.stv; 

m_adr.stari = 0x200. 
in_aar.end » 0x200: 



status » sys*crmpsc(&in_adr. r requested adorasses */ 

retadr. r addresses mapped 7 

NULL r Access Mode 7 

secjtags. r map first available space 7 

1 0 NULL. r piopai section name 7 

NULL. r ident 7 

NULL. r page to start mappmgV 

•cnan. r channel 7 

numbtocx. r page count 7 

von. r virtual block numoer 7 

NULL. r protection 7 

NULL): 



if (is_error(status)) return (status): 
return (SSS.NORMAL); 



EXPLODE.BfTMAPS 



r 



- Create e subsidiary Query results bitmap of the same size es the master_bitmap from 

- the suosidtary bitmap iwnich a the size of master_b«map) and the suosidtary resufts 
20 - bitmap (which is the size of the subsidiary table). 

— Algorithm a to start with the subsidiary definition bitmap and insert a 0 into the 

— results bitmap until a 1 is found in the sub definition file. When a 1 is found, the 

— sup results bitmap is used and value 0 or 1 is picked up and the sub results bitmap ts 

- advanced by 1 . 



Assumes resutts_bnmap_created ts initialized to alt 0 bits 



25 - FORMAT: 



— explode bitmaps (bitmap_with_sub_ouery_resuh, resutts_bitmBp_creaied. suD_We_detn_bitmap. 

— number_of_aems). 

- ARGUMENTS: 

- RETURNS: 



30 - 

7 

void exp)ode_brtmaps (in_query_0itmap. resuns_brtmap. sub_defn_bitmap. number_of_iiems) 

struct bitmap *n_query_bitmap: 

struct bitmap *resuns_brtmap: 

strua bitmap *sub_detn_bitmap: 

int number_of items: 

{ 

unsigned mt ij_n_map. ji_out_map, kk_m_map. xk_out_map; 

unsigned mt •m_oitmap. *out_bitmap. •sub_def_map; 

unsigned rtt i: 
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wort«th.oa.u t >tas-r^ ^ M TO ^ te ° «° move to tnenexi 

sue oel.mtp * «ub BM " n » ' «* «■ °' »»«w_f* an CM 0 on entry •/ 

kk_out_map = kk_n_m» 0 = BITMAP INTEGER SIZE 
H_out_map = 11 _m_map = i ; " " 



for ( i=0: renumber of items: i** ) 

{ 

r if mis data item is in me sub_flefn_file */ 
. q if ( "suD_oe!_map & u_out_map ) 

{ 

r see rf set m sut>_resufts Query map 7 

if ( •m_bnmao & u_in map ) 

{ 

^ *out jwtmap |= jL_out_map; r yes. set tn resuttam bitmap •/ 

r bump to next item tn auery^resuits map •/ 
if ( -*X_«vmap ) 

H_m map ««* 1. 

15 else 

■h^bitmao**-, 
il_tn_map e t ; 

kX_in_map * BITMAPjNTEGER_SlZE. 

} 

r bump pointer to next bit m m subsidiary aefn ***** 
advance to next wore of bits if ne^s„^ P brtma ° ana 

20 * f —Wc_out_map ) 

j out_map <*= 1 
else 

{ 

out_bttmap**; 
suo_oef_ map** 
li out_map b i ; 

kk_out_map = Bn*MAP_iNTEGER_SFZE. 

) 

25 > 



- GET_BI7MAP(f»eld_name. num^brts) 

~ Us«3 for muttifiJe processng to select proper subsidiary (subsidiary purchase 
~ or product) frie bit Definition We. 

~ Each subjiie has been read m as part of the load, is of same length as 
~ the master fito. and nas bos set marking elements m the sub file. 

83 field_name a ascit stnng in the form of 
~ • SUB01.02....20 - subsidiary file 

• PUR - Purchase Hie 

Z * PRD • Product file 

Z NotB: * nMm ^ aubjile doesnl exist or wasnt loaded, win return a NULL 
7 



30 



35 
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15 



20 



ttrua Mmap "ptt.bamapffitk^name, num_b*s) 
char •fietd_name; 
in! num^tws; 



{ 



int temp.bri_se»ea; 
struct bitmap *output_bitmap; 
unsigned mi 

if (stmcmpffield.name, XUS", 3) == 0) 



{ 



if <<output_bitmap « create bnmapfnum bits)) es NULL) 
ewjiandtor (BITMAP.NOT.CREATE. ERROR, NONSTATUS, "output bitmap n'gat.bitmap-): 

r set all bits of my outout^bitmao to 1 7 

fort temp * output_bnrnap^>start temp < output bitmao->end : temp~) 
temp b -0; 

- fot 1 tBm P s output_brtmaD->end. 1=0: Koutpui_bimiap->end_bitt; r~ ) 



{ 



} 



nemp |= j|; 



} 



retum(ouiput_oitmap); 



else if (stmcmp(fietd_name. "SUB", 3) == 0) 

sscanf(fieid_name*3. -%d". &brt_seiect). 

retum(suosifliary_ortmap(brt_seiect|); 



) 



eise if (stmcmp(field_name "PUR" 3) 
retumt purO 1 _bttm ap). 

else tf (stmcmp<fie!d_name "PRO", 3) 
return(prd0 i .bitmap); 



« 0) 



:= 0) 



) 



- SEARCH_FOR_VALUE 

25 - 



int search 



_tor_ value (struct fieW_entry field, struct fiekJ_entry Tieldl. 

struct field_operations "©Derations, 
strua field_ooerations *ODerations2. 
struct bitmap *resuits_bamap); 



30 m 



7 



mt search Jor_value( field. 



3 5 struct field_entry 
struct f»eW_entry 
struct fieW_ope rations 
struct fietd_operatsons 
struct bitmap 



{ 



fieidl. 
operations, 
operations 1. 
resurts_bitmap) 

Tieidt; 



•ooerauonsl; 
•results^onmap; 
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nt 
inl 
M 
rtt 

«ruaatfdrets_range retadr: 
struct aooress_range retaart ; 

inl 
M 



ctwn; 

totai_eount • 0; 



int 
art 



i. f*W_on*et*0. fieW_offsetleO; 
bit_aeieet: 

struct twtmap •tnpm_bitmap, -input bitmapl; 

unsigned ml tamp: 

referortce^count; 
num_bJoc*s: 

1 0 unsigned short •pp.map-NULL. "PP_mapl«NULL *pp map2=NULL. 

unsigned mt op_cooe*0, op_cooel*0; 

suo_ftag*0; 

«atus = OpenMapFae(field->table. toobar.sec-. f»w->fieid name. &ehan 
if (is_em*status)) **> nomt » Wo*)- 
error_handier <MAP_OPEN_ERR. ERROR, status, "first field in search_tor_vaiue-). 

if ( (stmcrnp(field->fieid_name. "PUR* 3) « 0) || 



25 



30 



35 



{ 



(fieldl »= NULL && <strnemp(fieldi->field_name. 'FUR", 3) == 0)) ) 

r if flushing delete flags set. deal with maopmg various purchase/product map couni oata •/ 
rf ( set_purcnase && oeiete_pur_mfo && >cus _pur_map ) 

r 256 is biockstze 512 divide by 2 bytes per short •/ 
num_btoacs = max_numoer_of_btts / 256: 

20 * < m»_number_of J»ts % 256 ) 

num^biocKs**. 

status = OpenMaoFHe( Ditmap.oirpurO^map.cnf. loooar sec "purchase map counr 
&cu5_pur_cnm. &cus_pur_aoor. 1. num_bioc*s J. 

if (ts^erron; status)) 

error.nano.er <MAP_OPEN_ERR. ERROR, status, "cus-pu^p count oata m searcnjor_v.iue"). 
pur0l_map = cus_pur_addr stan. 

pur01_map ♦= 2. r bump past count of records to 1st customer count oata •/ 
j cus - pur - map s 1 • r customer to purcnase map count data mapped */ 

) 



if ( (stmcmp(fieJd->field_name. "PRO". 3) == 0) || 

^ (f»id1 !■ NULL && (stmcnip(fiek)l ->f teid.name. TRD", 3) =r 0)) ) 

if ( set_proouct && deiete_prd_info && »cus_prd_map ) 

r 256 is btocksse 512 divide by 2 bytes per short V 

r uses a of customers */ 

num_b!OCKs « max_number_of_bns /256. 

if ( majt_number_of_brts % 256 ) 
num^bloocs*-*, 

status - OoenMwFitef T«m^d r pn ) oi.«, M .e n r. TbOMf.m". >oduet m «p „„„,- 
it (*_«Tortststus)) 

•"or_.-nd.er <MAP_OPEN_ERR. ERROR. «*u.. eoun, a*. « s..rH,Jor_v_ (u .-); 

prd0l_map * eus_prd_adar.stait 
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5 } 



prd01_map ♦« 2; r bump past count of meant to 1st customer count data 7 
eus_ptf_map«i; r man* custorw to piraas* iw 

) 



r tl to* PUR and PRD than oat ouwtase to pro<hja mao count •/ 

. < M Jg^J« W 3) - 0, ,, (s^p^^.. W . 3) « 0) „ 

W^Xf»*W^r*m., "PUR", 3) ~ 0) || ( stmo«p( ftrt diof l aid.n.me. W. 3, - 0)) 
UtiTKnip(fialcU>fiai fl ^nama f f.ek»^f^_r*me, 3) NULL ) ))) 
x 0 » ( wt jHjrcnasa && set_p<oduct && dalatajw^prd^rto && !pur_prd_map ) 

r 256 is blocksse 512 divide by 2 bytes par snort 7 

r usas a of purcnasa 7 

num_biocke » ma*_purcnase_bits / 256; 

if ( ma*_puret«se_b!t* * 256 ) 
num_bJocxs**; 

15 status * OpenMaoFile< tmmap eunpurprd mao enr - 

*puu™_„* fcrJCSS? 66 • > ™ B ma ° ««■• 

if (e.anorfstatus)) 

«ror_h»na*r (MAP_OPEN_ERR. ERROR, .u.un. >,.p^.p coun, «„ „ ^Jor_^ 1: 
pur_prtOi_map = pur_prd_aocr. start; 

pur_ P r«J01_m.p .= 2 . r bump pas. coun, of worn, to 1« eus.om.r «unt aw •/ 

2 0 

purj^map . 1; customer to purcnasa map count data mapped 7 

> 



fietd->data->rtems = retadr.stan: 

if (fialo->fiefcMvpe « faed_stnng) 
2 5 field_offsei * 9eLtoeo^stnng_offset(fietd.>f l eid.name). 

r 

Mield comparison ratner man value comparison 

ifffieldl »*NULL) 
f 

30 status * OpenMaoFile<r,eWi.»!abJe. loobar.ser. fteWi->fieid name 

Acnant. 4retaori. fteidl-»von. field u>number^of^biocics); 

if (is_error( status)) 

-rror.r*™, (MAP.OPEN.ERR. ERROR, status. Wcnjor.value, second Mr* 
fieidl ->data->items « retaon .start 

if (f«ldi->fieldjype f«ed_stnng) 
3 5 faw.oftteti « 0«>«_slrwLotfset(^ 
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) 
i 

{ 

if (stmcmp<fiew->fiew.name. "PUR", 3) 0) 

pp^map = pur01_map. 
else 

if (stmemtffield^ield^name, "PRC. 3) == 0) 

pp_map » prtOl.map; 
if ((stmcrnp<fieJoWieW_name. *PUR". 3) « 0) || 
(stn^p<field->fieU_name. "PRO". 3) *= 0)) 

sscanf(fieloWield_name*3, &op_eode); 

if <sirnerop(fie»di^ield_neme. TUR". 3) «■ 0) 
pp_map1 « pur0l_map; 

30 

if (stmcmp(fieidi->f«ld w name. TRD". 3) == 0) 
pp_mapi « prd0i_map: 
if ( pp.map && pp_mapl && pp_map *= pp.mapl ) 

pp_map2 « pur_prdOi_map: 
if ((stmcmp(f«Wl->fiatd.nam« t "PUR*. 3) «« 0) || 
istmcmp(fie»dl-Hieid_name. "PRO". 3) « 0)) 

sscanf(fieWl^field_name*3. "Tid", &op_codel); 

if ((itmartp(field->fieW_naina. "SUB". 3) ■» 0) || 
3 5 ( $tmcmp{fieid 1 ->fielo_name. "SUB". 3) ■« 0)) 

subjlag**; 



r Casel : Check to see if either of the field is not a CUS V 
r ana thus a multifile type search is needed. V 
if ((stmcmo(fieid.>fieio^name. "CUS". 3) ** 0) || 
c (strncmp(fiewi*>fieia name. XUS". 3) '= 0)) 

( " 
r process the Query, cased on the predefined bitmaps 7 

r of tne com fields •/ 

mput^bitmao = oet_brtmao(fietd->fieid_name. fesuits_bitmao->numoer_of_bits): 
tnput_DRmapl » get_comap(fieldi->fi«id_name. resutu.Ditmap-^numoerJof.ciu). 

r if either tnput_bitmao is NULL then Query specified 
suosiojary taote that is not present or no master_bnmap 
1 0 set yet return error •/ 

if ((mput_brtmap == NULL) I] (input bitmapl ■» NULL)) 

{ 

error_hanoter (NULL_POlNTER ERR. ERROR. NO STATUS, "input bitmao m search for value") 
) ..... 

if {(|stmcmp<field->f«W_name. XUS". 3) « 0) It <stmemp<fteld->field_name, "SUB".3) *■ 0 )) 

&& (Uirncmp(fieldl->fieid_name. XUS". 3) «= 0) || <strncmp(fietdt->field.name. "SUB",3> «= 0 

r cus - sud and sub - sub cases "/ 
totat_count ■ seareh w mf M oaiaset M arreys( fteld->data. 

fiekn*>oata. 
field->field_type. 
field^fietd^end. 
fieid_offsei 
fiekf otfsetl. 
operatio ns » operator, 
opetattons^searcn.vaiue, 
operetwns^»aarcn_vetue_typ«, 
etput^tntmap, 

nptft_bitmep1 , 
resutts_bitmap): 



15 



20 
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10 



15 



20 



25 



totai_count* *ean^_mf^_dausei_arTays( fie)6->dau. 

fie*Ji->data. 



field->fieldjype. 
field->field~end, 

fiefcJ_of!sen. 

operauons^ooerator. 

operatiorts->searcn_ value. 

operations^ searcn_vatue_type. 
m(x/t_b/tm8p, 

mput^bftmaol. 

resuns_Oitmap, 

PP_map. 

pp.mapl. 

PP_maoZ 

op.cooe. 

op_ceoei. 

suojlag). 



) 

if (strncmp(field->field_name. "CUS". 3) ss 0) 
fnM_bitmap<input_Ditmap); 

if ($trncrnp(field1->field_name, XUS". 3) =s 0) 
fre*_orvnap(mpm_tMmap1 ), 

else 

r Only possibility is a CUS and CUS case •/ 
r Case 3: CUS and CUS case . no multrftes •/ 
total_count = saarcn_datasetJor_vaiue(field->data, 



* end of field comparisons 

* sxan of value comparisons 

7 



field 1«> data. 

field*>fteid_rype. 

fieid->field"end. 

field.offset 

fieid^ofiseti. 

operations->operator. 

ODcrattons-> s«arcn_ value 

operations-»searcn_vajue_rype. 
resuits^oitmap) 



30 



35 



else 

{ 



if (<stmcmp<fielO->field_name. XUS". 3)) == 0) 



) 



totai_count = searen_aatasetjof_vaiueffieio«>data. 

NULL. 

fteid->fotd_rype > 
fieio->fieid~ena. 
field_of»set~ 
fiew^offsetl, 

operauons->operatof. 

operations->searcn_ value, 

operations->searcn2vaiue type, 
results_bftmap); 



else if (purcnase query) 
« 

r searcn_oaiaset ooesnt do average ana total cases 7 
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If ( (queryjype *■ **U**_prd) && (Qxtmyjtyo* •» tetal_pur jxti) ) 



totil^count * search dataset for vaiue<fiett->data. 

NULL 

r«*->fwttjyp6. 
f»k*->fieid_and, 

field_o1lsaL 
fie*foffseti, 



cpe*auons->search_value . 

cpefai»ru^seefch~va*jejype. 

resutts_bitmap); 



- ~ total_eount s count sot bits ( results bitmap ); 

10 \ ~ ~ 



Mo->fietd_typa, 

f»eld->fieW_end. 
fieW_offset 
oparations->oDerator. 
ooer»uons->wara\_velue. 

25 operat«ns->saarcn2v*ue_type. 
queryjype, 
results bitmap); 

} 

) 

etse if (product query) 
{ 

r seareh_dataset doesnt do average and total eases */ 

if ( (queryjype *= avg_pur_prd) && (queryjype »= total_pur_prd) ) 

20 tota!_count « search_eataset_for vaJue<fieid->aata 

NULL. 

field->fieldjype, 
fie^fietcTend. 
field_oftset. 
field~of!set1. 
operattons->ooarator. 
ooerations*>searcn_ value. 
op*riiions->5«arcn_vaiue_rype. 
2 5 resutts_oitmap). 



> 

else 

< 



lota i_ count a count_set_bits ( resutts_bitmap ). 



totai_couni « purjjro_query _SDecialffieio->aata. 

l«id->fieid type. 

fiew-*fie»d_end. 
fieW_cftset. 
3 0 operations->operator, 

operations~»searen_value. 
operations^searcn'vaiue.rype. 
Ouery_type. 
resuits_Drtmap): 



} 

else if ((stmcmp|fiew->f»eldjiame. "SUB". 3)) == 0) 
35 { 
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tot»J_coutt s search datasal for vaiue(f»etd->data. 
NULL. 

fie»d->fietdjype. 
field->field_end. 
fiett_offser 
5 fteid_otfset1. 

opera i ions -> operator. 
operations«>searcn_ value, 
opera uoru->$earcn_vaiu«_typo. 
resuUs_bnmap); 



10 



r determine tf the onmap needed to 06 adjusted for multi-file processing 7 
if (fieto->data->numoer_of nems < max numoar of oris) 

{ 

r call the explosion routine to set the resuJts_bitmap to the 7 
r "consistent" stze -consistent 44 sae is the stze of tne 7 
r customer oata record file . 7 



r Since the query tree routine, expects the results 7 
r bitmap. I am doing the following: •/ 
r - copying the results bitmap to the input bitmap, which 7 

r a now my results bitmap. •/ 

r - initializing the results bitmap •/ 

15 r ' calling the explosion rouime wruch wi!) explode my 7 

/* input bitmap to the appropriate toe and store tne new 7 

r results m the results bitmap. •/ 

if ((input_bitmap » craate^bitmapfresuits bitmap->number of bits)) «» NULL) 
error.handier (BfTMAP_NOT_CREATE. ERROR. NONSTATUS. WbrSnap in eearchjor.value-): 



20 



if (Mpy_brtmaps(mput_brtmap. results bitmap) == NULL) 
error Jwndler (BITMAP_NOT_C0PY. ERROR. NONSTATUS. 

"resurts_brtmap to input bitmap in search Jor_value"); 



for ( tempsr»suns_bnmap->start: temp<«r«suns bnmap-»end: temp~ ) 
temp « 0. 



r explode the value resutts_bitmep so full sae map is returned 7 
sscanf(fiek**fielc_name*3. ^subsidiary); 

expiode.brtmaps (input j>«map. resutu_tmmap. subsidiary brtmapjsubsidiaA/1 
25 max_numDer_of_brts); 

free bitmap(rnput bitmap); 
) 

) 

) 

r end of value compansons 7 

sutus » UnmapCloseFitefchan, Aretadr); 
, n if (ii.errortstatus)) 

JU error.handler (UNMAP_CLOSE_ERR. ERROR, status, •'search for value fnl fieJcTY 
ifffieWI 1= NULL) 

{ 

status * UnmapCloseFilefchanl, A/etadrl); 
if <ts_emv{ status)) 

eror_nandier (UNMAP_CLOSE_ERR. ERROR, status, •search Jor.value second field - ): 

J 

35 r we do have to free the input bitmap 7 
retum(total_count); 

} 
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- SEARCH_LARGE_ARRAY_FOR_VALUE 



10 - 



an array or largo mteger for the prvan value and upoatM the bitmap 

" Common togc for bitmap table processing with just the operator varymg. 

• Seaxcn routme macros {«, SEARCH^ FOR ) era n FDC.MACRO.DEFN.H file 

- SEARCH.FOR s invoked as: 

~ SEARCH_FOR( oper. fmssmfl_flag. mtssmg_vaiue); 

- SEARCH.FOR is passed oper of «*, »« I* ate 

missmgtogsottoOforcffandnocnockneooa d orl to chock <> end >» cases 

need to exclude values set to missing) 
masna_vatue is set to specific value for wtL medium, snort etc 



15 Z 



SEARCH_FOR macro expands hke this: 

kk « BFTMAP JNTEGER SEE; 

for { i«0: tcnum bits: r~ ) 
{ 

if (mtssmgjtog) 

if (( •array^stan oper eompare_vafcje ) && 
( •array_stan < missmp_vaiue )) 



{ 



•temp J« jj : 
total 



20 - 



25 - 



{ 



if { •array.stan oper compare_vatue ) 



{ 



) 



tempjsjj; 
totai_count**; 



} 

array_stan*+; 
if (-kk) 

if «al; 
else 

{ 

temp**; 

B«1: 

kk s BrTMAPjNTEGER SIZE. 



) 



* SEARCH_FOR_BETvVEEN is similar, except for if statement with >= end «= for beiween 

30 '' 



mt searai_iarge_arrayJor_vaiueianay_start.eompare 



35 



unsTgneo mt *array_stan: 
unsigned mt eompare_value; 
unsigned mt nexi_ com pare_ value ; 
struct lis retypes *comoare_Usf vaiue; 
enum field_operator ooerator. " 
unsigned mt num_brts; 
strua bitmap ■results jmmap; 



'_value.next_compare_vatue. 
comparejtsi_vaiue.operotor,nurn bits. 
resuns_oitmap) 
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10 



20 



unsigned «t total_count * o- 

unsigneom! temp; 

""nynedcnt i, Jl( jj.kK; 

unwoneo mt m«m^onci. mrssrrw off=0 

unsigned mi missing jiagomtssrno off 

unsigned mt found; * 

stftJC * tatjypes lisLhaad = NULL; 
hst_head = compare ttsi vatua 
lamp * rasLrtts_bitmap->start 
•witch (operator) 



caaeeouai: 

SEARCH,FOR( « . maa^ftag. MISSING J^RGE.VALUE); 

eaaeequaljist: 

if ( list head » NULL ) 
-U— -WJ. TO .ST„U S . 

8/TMAP_LOOP_PAKT^1( ), 
15 U$Lhead = compare hst value 

wtwe ( l«t_heao to NULL*) 

Jf ( tet_h.ao^iype.l,st « vanapie^vaiue ) 

if ( •wr^.atart « hsU*ao-»mteger ) 



^amp f« jj« 

to*ai_count**; 
braak. 



) 



) 

raiouriistisaonediowtohi ban a 

* ( -array.stan < tth^wjlr, ** n * 

broei^ 



if ( fct_heeo->type_Ust *= range_vaiue ) 

25 ^ r * TT9Y -*?T" ^^^t^tween^aoef-^, W 

{ ( " ^h^^^^eoer.^, , 

"temp t» ft 

totai^CDum*-*. 

braax. 

) 



< C •^ray.stan < ■ ^Jm^mmm^jmgm^m ) 



) 



30 j **head • itft.heao^next 

array_s!an**; 

BrTMAP_LOOP_PART 2( ) 
break; 

case greaterjhan_equat: 

missmgjiag « misaing^on; 

r if value to look for is MISSING LARGE VALUE turn off th» 
/" exclude misatfig values flag " WC - VALUE - lum off the •/ 

35 * ^P^-vaiue «» MISSING_WRGE VALUE) *' 

maeaigjiag. 
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SEARCH_FOR( >= . min^fUg. MISSING.LARGE.VALUE); 



case greatar_than_aQual_list 

iffhsi_head«»NULL) 

5 mmvjmrxtor <NULL_POINTER_ERR. ERROR, NONSTATUS. Tistjiead m search_secaon-): 

r set to Maude values set to the targe value used for mtssng 7 
mssngjlag = moxmg_on; 

r ease of searching for values greater than or eouai a list of values 7 

r simplifies to fmo the largest vajue v\ the bsi and use 7 

r the normal search routine for this value 

compare_ value « a 
1 0 bst_heac~s compare_hst_value; 

while ( list head »■ NULL ) 
{ 

if ( bst w head->type Jist ss variable value) 

{ 

if ( list_head-> integer > compare_vaiue ) 
compare value « test 7 

J 

else 

* ( list_nead-»typejist range_veiue ) 

if ( list M head->oetwoen v mtegef*>high > cemoare_vatue ) 
comoare_vaiue = list_head*>oerMreen_integef-'>nign. 

list heed « list head->next; 

) 

r if value to took for is MISSING.LARGE.VALUE. turn off the 7 
r exclude missing values flag • 
2 0 * (compare^ value ea MISS1NG_LARGE_VALUE) 

missmgjlag = misstng_off. 

SEARCH_FOR( >= . missmgjlag. MISSING LARGE VALUE), 
weak, 
case greaterjhan: 

missmg^flag = mtssmg_on; 
if (compare^ value «« MISSING_LARGE_VALUE) 

missing_flag = missmg_off. 
SEARCH_FOR( > . missmgjlag. MISSING LARGE VALUE) 
25 break; 

tess_than_eQual: 

SEARCH_FOR( <= , missmgjlag. MISSINGi^LARGE.VALUE); 



30 



case lessjnan: 

SEARCH_FOR( < . mtssmgjlag. MISSING_LARGE_VALUE). 
break: 

case not_eQuat 

SEARCHFORf ■« , missmgjlag, MISSING LARGE VALUE), 
break; 
case not_eQual_tist 

"if ( list head «» NULL ) 
errorjwndier (NULL.POINTER.ERR. ERROR. NONSTATUS. "listjiead m search_seciion"); 



BrTMAP_LOOP_PART_1( ); 

kst_head = compare Jisr value; 
found « 0; 

while ( test head *» NULL ) 
( 

35 * ( teLhead.>typejist « variable value ) 

{ 

if ( •array.stan «« iist_heed->mteger ) 
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V ( •mtvyjimn < W Jiead->mtegar ) 



if ( bst_heao^>type Jist «= ranpe.value ) 

( 

if ( (°array_stait >= Ust_head->berween_integer->iow> && 

"('•my wan <= list_r*ao->oerween_integ0r->n!gn) ) 

{ 



10 

} 

• list head ■ taM>e*o->next; 

) 

r if value not mtne tat. select it •/ 
if(!found) 

{ 

nemo t a jj; 

i r totat count**; 

) 



break: 

) 

if ( •aroy_*tart < Ustj>eBO^betweeri_!nieger->iow ) 



array^start**: 
BrTMAP_LOOP.PART^2( ); 



SEARCH_POR_B ETWEE N( ); 
break. 

default: 

2 0 error Jiandler ( 1 NVAL1 D_ S WIT CH_ VALUE. ERROR, operator. 

'operator (Oetauit) m searcn_iargo_array_tor_vatue~); 



) 

retum(iotai_count); 



) 



r 

^ 5 - S£ARCH_MED!UM_ARRAY_FO REVALUE 

~ Searcnes an array of meomm mteger for tne grven value ana updates tne 
bitmap 



•/ 

r\\ sean^_meoXim_Brrey Jor_vetuet army_$iaa oompare_vatue.noxt_compare_vatue , 
3 g " " oomparB_iisi_vahM.operator.num_b(ts,resuRs_bftrnap) 

unsigned snort •array^start. 
unsigned mt com pa re_ value, 
unsigned mt next_compare_vaiue. 
struct inwypes •cempare_list_va)iue. 
anum fteW_operator operator, 
unsigned mt num_brts; 
struct bitmap *resutts_brtmap; 

{ 

unsigned mt total count = 0; 

35 unsigned mt temp; 

unsigned mt i. j. jj. kX 

unsigned mt mustng^onsl . 

unsigned mt rmssmgjtag * 0, 

unsigned ml found; 
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ttid kstjypes Hatjhmmd ■ NULL 
fcst_head « compare jm.vaiue; 



5 swach (operator) 



5EARCH_F0R( == . rmssmg_off. MISSING MEDIUM VALUE) 
breax; 
. cam eojuaJ_hst: 

if ( loghead NULL ) 
enw^handier <NULL_POINTER_ERR. ERROR NONSTATUS. Tsst_heed n searcn_seaion-). 

BITMAP_LOOP_PART_1{ ); 
* " bsl_head * compare_fest_value: 

while ( Hst_hMd !« NULL ) 

{ 

if ( fast_head->type_bst « vanadie_vaiue ) 

if ( •array_siart «« (unsigned short) bst_heao*»tnteoer ) 



15 



temp |« c: 
totai_count**. 



) 

if { •array_stan < (unsigned short) list_heao-»fnteger ) 
create: 



20 



25 



tf ( bst_haao.>type list == range value ) 

{ 

If ( Canray_start >« (unsigned short) iist_head->oeiween tnteoer->iow) 
&& " 
rarray.sun «= <unsigned snort) to!Jieao-»©erwee*_imegef.»high) ) 

i 

tamp 1* n. 
totai count 



) 

ff ( *array_stan < (unsigned snon) iist_heao->Derween_mteger.>iow ) 
) orean, 
fast head » hst heao->next 

) 



array start** 

BfTMAP_LOOP>ART_2( ). 
oree*. 

case grBater_than_equai 

SEARCH_FOR( >» , mission. MISSING.MEDIUM VALUE) 
breaX, 
case greater jnan: 

SEARCH_FOR( >. missmg_on. MISSING MEDIUM VALUE) 
brae* " 

30 case »ess_man_ecuaf 

SEAR CH - F ° R( <= ' mas,n 0-Off. MISSING_MEDIUM_ VALUE). 

case iess_than 

SEARCH_FOR( c , m«swg_o«. MISSING_MEDIUM_VALUE); 

case noi.equal: 

SEARCH_FOR( . rmss*fl_off. MISSING JUIEDIUM_VALUE); 

case not_equai_hst: 
" * < *st_head «* NULL ) 

•frorjiandier (NULL.POINTER.ERR, ERROR. NONSTATUS. T^he*, „ a.an*a.ctoO; 

BrTMAP_LOOP_PAPTM{ ); 

hst_head * compare_hsi_value; 
found * 0: 

while ( hst head t= NULL ) 
( 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



247 



PCT/US94/12074 



15 



tf ( hst need-*type J»si mm variable value ) 

{ 

if ( *amy_etart » (unsigned snort) bst heac->riteoer ) 

{ 



) 



} 

if ( Imyjuri < (unsigned snort) list heao->mteger ) 
break; 

tf(bsl_hMd->iype bsi orange value) 

{ 

if ( Camjy_Mart >= (unsigned short) Ust_head->betweenjnteger->>ow) && 
1 0 Carray_stan « i unsigned snort) tet_neac^Detweenjnteger-»nign) ) 

found**; 
break, ' 

} 

if ( •arrey.start < (unsigned snort) bst_heed->between mteger->tow ) 
break, 

) 

bs!_head = bst_head->next 



) 



r if value not tn the bst select it •/ 

if (ffound) 

{ 

nemp 

totaJ_count*+: 

} 

errey_stan**; 
BITMAP_lOOF>J>ART 2( ); 

2 0 ***** 

case between: 

SEARCHFOR_BE7VVEEN{ ); 
break; 

default: 

error jtandier (INVAUD_SVvTTCH_VALUE. ERROR, operator. 

'operator (Default) m searcn_meoium_array_for_ value "), 

break; 

) 

2 5 retum(toUJ_count); 
) 

r 

- SEARCH_SHORT_ARRAY_FOR_ VALUE 

• Searcnes an array of snon integer for the given value and updates tne 
™" bitmap 

30 Z 



v 

rt searcn.sr»rt^arrayJor - vaiue(arniy^s^^ 

unsigned char •array.start; wmparejJt.vanie.operator.num.bru.m 
unsigned mt compare^ value; 
3 5 unsigned mt ne*_compare_value; 

«njd bst .types •compare JtsMralue; 
enum fiald_operator operator," 
unsigned mt num_brts; 
struct bitmap Tesu&s_bitmap; 
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( 

uropnedint total count bO; 

unsigned «t lamp 1 

unapnedint i.u&*K 

21!! m «^«i«i.m«« nL ofl=0: 
unsigned mt mtsjmg fiao 

J unsigned *u fauna; ~ 

struct list jypes *bst_head = NULL; 
list.head * compare^ Ust_value ; 
temp = resurts_bitfnap->start; 

switch (operator) 
10 « 



SE£CH_FOR( « . miwnsLoff. MISStNG.SHORTVALUE); 

•ouaf^tost: 

* ( tet_hoad =» NULL ) 

™ M (NUU - P0,NTER - ERR - ««. ^STATUS. ^ „ 
BrTMAP_LOOP_PART_1( ); 
15 hst_haa<3 = compare hst value- 

while ( tat_head t* NULL*) 

* ( ^Lneao->type.hst « variably value ) 

< ( -array.star, ~ (uns^a cnar, tet.neao^oiteper , 
temp 

totai_count**. 
break. 

20 ) 

" * (Un$,gnefl ^.o^eger , 

) 

•ise 

If ( l«Lheao->type.l,« == range, value ) 



25 I 

temp |= jj. 

totai_coum 

break 



rann^ * an <™*™ ™»»<J*™ >t*r»*en .ntegar..,ow, U 
( arra y _,:an « *ur*,gnec cnar, " 



} 



ff ( •array^start < (unsigned cnar, bst_neao->Detween mieoer.> IOw ) 
break. " y 1 



hst^head * list head~>next 
) " 
30 array, stan~ 

B!TMAP_LOOP_PART_2t ). 
break; 

case greaierjnan_eaua! 

SEARCH_FOR( >= . missmg_on, MISSING SHORT VALUEl 
break; " - 

case greater_than. 

SEARCH_FOR{ > . rmssmg_on. MISSING SHORT VALUE) 
break; " - 

case toss_tnan_eouar: 

35 brea< CH " F0R( " ' mB,,nfl - off ' MtSSING.SHORTJ/ALUE); 

case iess_tnan: 

SEARCH_FOR( < , missmg_off. MISSING SHORT VALUEV 
break; " ~ 
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ease not.equaf: 

S2 CH ~ F0R( ' = ' fna5mS - 0ff - MISSING_SHORT_VALUE); 
eiM not_equal_fasi: 

if ( bst_head == NULL ) 

b»Lheao = eomp*r#_iat value 
found so; 

wruie ( list head M» NULL ) 

{ 

ff ( list hea6*>type list ==* vanabte value ) 

{ 

^ q •wrey.start == (unsigned cnar) kst_heao-> integer ) 

found**; 
break; 



15 



) 

if ( •an»y_start < (unsigned char) list_head-><nteger ) 
break; 



) 

eise 



if ( bst_head->type_bst = range_vaiue ) 

if ( (*B/ray_start >= (unsigned char) bstj»ad^beiween_integer.>tow) && 

^ Carray_start e= (unsigned cnar) lisi_r»ao^betweenjmeger^htgh) ) 



found**; 



} 

if ( •afTBy_siart < (unsigned cnar) kstjwao->betweenjnteger->iow ) 



break 

2 0 bst_nead « list head-»next 

} 

r if value not in the list, select it 7 
if ( Hound) 

{ 

"temp |» ij; 
total count**; 

) 

25 

array start** 
BITMAP_LOOP>ART_2( ); 
creak; 

case between. 

SEARCH_FOR_BETWEEN( ); 
creak; 

default 

•ernxjiandler (INVALIO_SWTTCH_VALUE. ERROR, operator. 
2 q "operator (default) in seaJcn_snofl_array_for_value M ). 

break; 

) 

retum(total_eount); 



35 
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r 

2 SEARCH_Bn_ARRAY_FOR_VALUE 

~ Searches an array for pits that have been turned ON or OFF. 



5 



SSSSS.. ^ rt ^ Wro ^»^b^ntastadyaLThaiatof 
,w ^^ Mre ^^n^ te baupoa«.-/ 
»tt»Mrch_btt^array_for_vaUja(array_«tart. : 

10 unsigned cnar . -array start; op«ror.num_biij.rMutts^rtmap) 

•num field^operator operator, 
unsigned tnt numjbns: 
atruct bitmap •resuits_b«map; 

unsigned tnl total count « 0 
unsigned mt nemp; 
""^onednt i,j,jj.kk; 

^ 5 temp a resutts_bitmap-> start 

ewrtch (operator) 

I 

caseeoual: 

SEARCH^FOR^BrT MATCH EQ( ) 
break; ~ Ut 

case not_equal: 

SEARCH^FOR^Brr^MATCH^NEOC ); 

20 case greater_than_equat: 

case greateTtnan r 
case *mjhan_eouaf: 
case tess_man: 
case between: 
* default 

error_nandler (INVALID.SWITCH VALUE ERROR BD L«t~ ^ 
^ break; error, operator, operator „ searcn.bii^arrey.for.valua-); 

retumaotaljxwnt); 



r 



^ SEARCH_STRING^ARRAY.F 0 R.VALUE 

: sss ssb sas sar — - - — 

. ~ooeo ^7wrio^cr^arac^rs.strnanpf W 

30 Z TJ* »*e*1 (and up to date expansion) far 

1 « module : FOC JSSSlKJ macros is found 

^ BrTMAP_LOOP_PARTj ( , macro expand, * a ^ 
* kk * BITMAP INTEGER SIZE 

2 jor ( »=0; i<num^bits; r** ) 

35 - 

Z BfTMAP J.OOP J>ART.2( ) maao expands like this: 
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»(-«*) 
i«— i: 



{ 

temp**; 

kk * BrTWAP_»MTEGER_SI2E 



-} 



) 



rNotei on string fields relating to MISSING STRING VALUE case 

MSSING_STRING_VALUE data of Held length of all space (blank) characters 
Thus a search for NOT.EQUAL "AAA", will get ay value. NOT EOUAL 2 

m NOT.EOUAL AAA. Please note that tres handling for strings worw 
djfferemiythan the Date, and integer cases, but Mike ^ersonhas carefully 
considered this ano we nave cnosen tms approach. •/ y 

^ *«an*_sinng_afrayJor^ 

unsigned char •array_start; searcn_value.ooeraTor.num^brts.re$iifts.t>rtmap) 

unsigned cnar •compare_vaiue; 
int lengtn; 

«rua iist_types •searen_vaiue. 
enum field_operator ooeraior; 
unsigned mt num_bits. 
struct bitmap *results_bwnap. 

unsigned mt jsO; 
unsigned mt total_count = 0; 
unsigned int temp, 
char *stnng_vaiue. 

™ string length; 

unsigned mt i, jj. kk: 

ml founds 0; 

struct listjypes 1ist_head = NULL. 
Iist_head ■ saaren_ value. 

r the strings m the database tables we are looking at are padded witn space characters 

'^ 0U '°"" fl f "Rvalue strmp is null termmated Thus we are setting up a 

mtT^^l ™ V ,nng ° f $P3Cei an ° mo compare. vaJ stnng 

mto the first strmg_iengin places so strmg_vaiue nas a space character padded 

vmon of me a>mpare_vaiue stnng wmcn we can match successfully the database 

jf ( operator == eoualjist || operator == not_eouaijtst ) 
if ( lis! head == NULL ) 

error.nand.er (NULL.POINTER.ERR. ERROR. NONSTATUS. T* L head m searcn.se W . 

r length ts lengtn of the field not length of the passed match strmgss •/ 
length = Ust.haad->sinng->stnng.length; 

r get all of the est of passed strings to be space padded to proper length •/ 
r comparison uses length of entire field, when is space padded m data •/ 
r array start, thus pad passed strmgs with spaces so compare will work V 
while { bst_head »» NULL ) ^™ ' 
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10 



25 



35 



if ( strtenf bsf heed->stnng->stnng_ value) < ttst he«o->*tnng->smng_»engin ) 

( 

stnng_iengm « srnerViist_heao^str^->stririg_value); 
string., value = matlocf iengtn*1 }, 

CHECK_ALLOCATION($inng_vaiue. H stnriQ_vaiuB. Routine search_stnng_an^y_tor_vaiue<n; 
memset< strmg_ value. * \ length); 

memcoyt strmg_vaiuB. li$Mniad^stmg/*stnng_value, smngjength ); 
string_vatue[length) = VJ; 

free( list_h«atf->smng->stnng_value ); 
bsi_heao->stnng-> strmg_vatue « stnng_va(ue; 

bst_head « hst_haad->next: 



> 



rnon list case, we have compare_vaiue atnng and length passed 7 
smngjength ■ stnerycompare^value); 



15 r ™**>on is to pad the itnng with blanks, upto the Tength" of the string 7 

stnng_value • maticcf length* 1 ); 

CHECK_AUOCATION{stnng_vaiue.-stnng_value I Routine searc^^stnnfl_array_for_vaJue(n; 
if ( stnnQjengtn < length ) 

memsetf smng^vame. ' \ length ); 
^ memcpyt strtngjratue, eompare_value. stnngjength ); 

^ n 6lse F copying only pan of compare_vatue smng 7 

z u memcpy( strtng_vaiue, compare_vaiue. length ); 

^ stnnfl_valuefiength) = XT; 

temp = resufts_bnmap->stan. 



switch (operator) 

{ 



B!TMAP_LOOPJ>ART_1( ). 
if (stmanp(iuTna_vaJo«. array_stan. length) »» 0) 

nemp |= jj; 
total count**; 

} 

array start ♦« length: 
BrTMAP~ LOOP_PART_2{ ); 



3 0 case equatjist: 

BrTWAP_LOOP_PARTj( ); 
tist_heao = searcn_vaiue; 
while ( list head »=~NUU ) 
{ 



H ( (stmcmp{ bstjieao->stnng->stnng_value. array_start, length)) == 0 ) 

temp |* jj; 
total 



> 

Usi.head « bst_heao->next; 
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array_stan ** length 

BfTMAP LOOP PART 21 ) 
break. ~ " * 

case no i_ ©Qua i 

BJTMAP_LOOP PART 1( ) 
5 f (StmCmm8t ^. v »^. •"•y_«art. length) * 0) 

temp fs ft 

array_stan *= length- 
B!TMAP_lOOP PART 3f y 
break: * " 4 

case noi_equai_hst: 

BfTMAP_LOOP_PART 1() 
1 0 founo = 0. 

itft^haao « searen_ value: 
while ( bst_neaa »«NULL ) 

founds; 
break: 

} 

1 5 } bst_head = hst_heao->next: 

rf ( »found ) 

{ 

"temp jj; 



array^stan ♦= length' 
BfTMAP_LOOP_PART_2( ), 



20 



) 



default: bfB8K - 

•fTPr.hanciierdWALID.SWrrCH VALUE ERROR ^ . . 

- ALUE. ERROR, operator, "operator „ search^a^^ 



25 



rf ( operator ♦= equal hit nrM,«.. 
{ ^ - w ** operator '= not_eguaiji S t ) 

free ( strmg^vaiue ). 
itrmg_vaiue = NULL. 



retum(toui w count): 



''foradstnng seart* 



constructs Th,» „ me U ™ 1 fuao ,tnn ° ««■ 

"0 • or ? characters matcn «m». v.** has 



30 

tit •airchjstnng^arTay for va^.rr* 

Wigneo short •array start. Marcn vaiue.operator n„m * 

Signed char -cornparTsir -".operator .num.bfU.resuJts.bitmap) 

int length; * ' 

int fieid^off set; 

tet.rypej -search value 
Bnum f *K3_operaior operator, 
unsigned int num ons 
35 »*uct pnmap *resufts_brtmap: 
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20 



unsignaoint j=0: 

""Monad ml total count = 0 

wwpnedint temp; 

ZZSS 2 U^T'^ ' M'SSING.MEOIUM.VALUE; 

unsipned ht missing_on = 1. mosmo off = 0 
""•vwd nt msatnojla^rnisainLeff: 
'" , founc=0. 

«trua teijypes "hst_head ■ NULL: 

lin_head = searen_vaimi; 

jor «na»»1; «ax<^x«j,aidIf*tt_off M ,^_ eoum . 
» ffa«».fi«wrfiald.o«aat)o.f l xea_«nno(i n(1)t , „ NULL) 

compare_va)u6 a rndx* 
15 brsak: 

> 

r deal with missing. MISSING STRING VAL lie tm * ^ 

r but data array nas MISSING M E S *nn9 « not in fmad.fiaw tables V 

} «mpa^va,^ M TsS^ ^MISS.NG^NG.VAI^UE,, « 0, 

r deal with cham fast of strings without wild cards •/ 
eise 

{ 

r list of strings, in chained hst types bsL translate 

r put mdx into bst.types struaures ^ St " n9 10 *' 

if ( Ustjwad =e NULL } 

m - P0WTEW ERROR, NO.STATUS. n*_n., a „ a.™ ^ 

length e lis^hea^stnno^stnno^Jenoth; 

2 5 tuSTffiT^^ " ' * M.SS.NG.MED.UM.VALUE V 

iist_head->tnteger = o 



30 i 

ltst_head->fnieger * MISSING.MEDIUM^VALUE. 
^ compare.vawe = MISSING JrfEDIUM_VALUE. r so can tell found at least one V 

list head = list heao->next 

) 

r now match strings m chained list with strings m futed.strmgs structure, keeping inch 
r values which wit) match items in oata array *' 
for (incx=1; md*«=faed JiekJ|fietd_offseth>r»c^.count: inax~) 
35 { 

if (faed_fieldlfietd_offset)->f«ed_stnng(indx) != NULL) 

list_head » search_vaiue: 
wntle ( list head ?*~NULL ) 
{ 
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) 

) 



compare, value » ndx: r to can tell found at toast one •/ 

hst_heao*»nteger « nctoc 

Mate 

) 

hst haad * tot heao«»nett 

) 



) 

tamp * r»sutu_bftmap->stan: 

r If mtssmo wo found no matting «nnga « labia of fb^ t*nng ta* no need to eearch 7 
r except for not •Qua) cases V 



in * <oompare_vakje »« M!SSING_MEDtUM VALUE || oparator — not aqua! 

w II Operator ra nat *^,«t >..»* " - 

{ 



{ 



I) operator n riot_«qualJiit) 



t 



SEARCH^FOR( , musmeoff. MISSING JUEDIu^VALUE); 



15 SEARCH_FOR( h: , mm^off, MISSING.MEOIUM.VALUE); 

caseequaljjit 

BJTMAP_LOOP_PART J ( ); 

ktt.need * search value: 
wniie ( bat haad *=HUIL ) 
{ 



if ( •array^start (unsigned short) tisi_heao->mteger ) 



2 0 nemp * e fi- 

totai_coum*»: 



) 

^at.neao & hst w heao->next. 

anay^itarw; 

BITMAP_LCGP_PART T{ ). 
break. 

case not_eouafjist 
2 5 8ftMAP_LOOP_PART_1[ ). 

found m o. 

kst_neao ■ searcn_ value 
wnue ( iisi_neao >=~NULL } 
{ 



if ( •array stan == (unsioneo snort) hs^hnao-xnteger ) 



30 



) 



) 

hst.head « list_heed->ne«; 



^!^°* MISSING - STR,NG - VALUE ««™<vel»s MISSING MEDIUM VALUPl •/ 
r^^^' ^|i Sl ^MEDlUM.VAtUE « ^ ' 
r mua^^T^ ^ « M ^SING. A not found * 

if ( ftound && •array^start * MISSING_MEDIUM_VALUE ) 

temp f« 



35 ^ totat.couni**; 

array.atart**: 
BJTMAP_LOOP_PART_2( ); 
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2 SEARCH^MIXEO.STRING.ARRAY.FOR.VALUE 

^ Serenes an array of strings for the given value and updates the bitmap 
s The stnng or at least one of the series to stmos with values to took 
5 - for have tittedoed • and/or ?wild card characters. 



25 



7 

int search_mned_stnnfljc>r_va 

unsigned char -array.surt »™J^.**™wj*Jm*Jmm) 

urtsip^ed char *comparo_vslua; 
^ q sit length; 

struct fat jypej •search_value; 
enum fietd_operator operator 
unsigned mt num_bits; 
struct bitmap "results bitmap: 
{ 

unsigned int j»0; 
unsigned int total count = 0; 

unsigned ml temp- 
unsigned int y #Wc 

15 foundsO; 

rt missmgjlag * 0; 

struct ItsMypes tist_head » NULL 

listjwad * search_vakie; 

if ( operator == equal Jtst || operator == not_eoual_iist ) 

2 Q * ( hst_head == NULL ) 

•iror.hand.er (NULL_POINTER_ERR. ERROR. NONSTATUS. Tis L head m se.roh.sw.on-); 

r length is length of Held, not just the passed stnng(s) •/ 
length = bst_head->strmg->stnng_iength; 

WdeYno.speciaLstnng.searcnesJor.MlSSING STRING VALUE 

r see if ttst contains entire MISSING STRING VALUE entry 7 
while ( list_head »= NULL ) 
{ 

if( stmcmp(hst_heao->string->string_vaiue. MISSING_STRING_VALUE. 
stnen(MlSSlNG_STRlNG_VAi.UE)) == 0) 



( 

T mark MISSING_STRING_VALUE as in the list */ 

missing_flag»*. 

break. 

} 

list heads list head->next 

30 ) 

eendif r no special string searches for MISSING STRING VALUE */ 

) ~ " 

temp = resutts_bitmap->start; 

switch (operator) 

{ 

case equal 

BrTMAP_L00P_PART_1( ); 
35 tf ( (compare_stnng<arrey_start compare value, length)) ) 

{ 

temp |» a; 
total count**; 
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) 

array_sian ♦« length; 

BrTMAP_LOOP_PART_2( ); 
break. 
2 case eouai_hst 

" BITMAP_LOOP_PART_ 1 { ). 
iisi_heao = searen_vaiue. 
while ( list nead *=~NUU. ) 



if ( compafe_strffig(array_stan. »istjiaao^>stnng->stnng_vaiue. length )) 



temp I s Jj; 
totai_count+*; 

10 j 

b$t_head = Jisi_heao->next; 

array_stan length: 
BITMAP^LOOP PART 2( ); 
. break; 
case not_eouar 

BJTMAP_LOOP_PART_1 ( ); 
if ((!<compare_stnngtafTay_stan. compare_vaJue. length))) ) 
15 { 

temp |r jj; 
total_count«^; 

) 

array_ start ♦= length; 

BITMAP_LOOP_PART 2( ); 
break; 

case not_eouai_ltst: 

BITMAP_LOOP_PARTJ ( ); 
founo s 0; ~" 

2 0 l«Lhead = search^value; 

whrie ( Jist_heed t* NULL ) 

rf ( wnpare.stnngtamiy.staa hst.hee^stnng^stnnLvaiue, length) ) 

found**; 
break: 

) 

2 5 list_head « tost_head->next; 

} 

if (Hound) 
( 

"lemp |= jj; 
^ toiat_count«~*; 

array_ttart ♦» length; 

BfTMAP_LOOP_PART 2( ); 
break; 

3 0 CMa o^eate^tnan^equal: 

case greaier^tnan" 
case tess_than_equal: 
case lessjhan:"* 
case between: 
default 

Bm, - h " naW ^'^CH.VAtUE. ERROR. op.«or. "cp^ „ M8 ™ mBOfl _ stnngJw ^ 
break: 

) 

35 

rwum(toUf_cnunt): 
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«*Qnad 9hon •array.ttart: a * ra -'^.op«wor.num_bits.msute brtmao) 



vtt lenctrt; 
5 intfwld.offMt 

•trua fast jypes 'iearefMraiue 
•nun fiekJ_operator operator 
int num^oiti: 

ttua bitmap "resuftsjwmap; 
{ 



20 



30 



unsigned m tot* f_ count » 0; 
unwgned int nemp; 

1 0 J • M'SSING.MEWUM.VALUE: 



tntfoundcO; 

int missngjiaa. * 0; 

^types TisMiead * NULL, 
fitt.head » iearm_vaJue; 
1 5 temp e resutts_bitmap->stan; 
•witch (operator) 

ewe equal: 



) 

25 I 



( , ra ^««nng|,nox).>5tnng. compare str tenctni j 

jf ( eompare.vrtie ,» MISSING.MEDIUM.VAIUE ) 
SrTMAP_LOOP_PART_ 1 ( ) 

r fixea_f«w)f„i a onset u>rnM ., 

■ « r «^«^«.o««,,.W„ w . $tnno| . afr , y _ wai1| )s Nuu) 



"temp |a B- 
lotal_eeunt««; 

> 

35 BJTMAP_l.OOP_PART_2( ); 
break: 
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ess* equal.list 

* { list.hMd »= NULL ) 
•ftw_handler (NULL_POlNTER ERR. ERROR. NO STATUS tn 

m*smg_flag = 0; ™aicnes for missing v 

5 while ( llst^nead 1= NULL ) 



15 



20 



{ 

missing f\ag<—. 
oreak; 

} 



^ tojieao * .isi_head->next: 
* f r ««d_fieldfr^ ,* NULL) 



tet_head « search^vaJue; 
( bst_head !«NULL J 



* ( compare_stmg(f«ed_field|fie.d o«setK>faed itnnn^i^ ^ 

HsLneao^stnng->s!nni vaJT^^ZZ*™****"*' 
{ tf «nng_vaJue . bsWwad->«tnng-»string length) ) 



^d r^w^^^^^^ 

compare values 1 r C ~ 8a • 

break; r nole ,ouft0 at tea « so searcn is valid •/ 

bst_head e bst_heao->next. 

) * 

} 

*< compare.vaiue f. MIS$ING_MEDiUM_VALUE ) 

BrTMAP_LOOP_PAPT_l( j ; 
{ * ^W.^^fieia.offse!^*^^,^^^^^^} .« NULL) 

temp |= jj. 

totai_coum** 

continue. 

25 , ' 

r 'j* 0 Che< * tf to P«^ up missing values also •/ 
rf ( missmg_nag ) 

rf ( -array^sian == MISSlNG_MED!UM_ VALUE ) 

temp |= j. 
total count** 

) 

array_ start**; 
30 j BrTWAP^LOOP.PART_2( ); 

break: 
case not_equal: 

for <^«1: «rK*««f«e«_r^^^ 
if (fiwdjieldifieid.c*^ f= NUU) 

J ( Kcompare.s^^ ^ ^ ^ ^ } 

35 ^ 35^^ 
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) 

} 

if ( compare_value »= MISSING_MEDIUM_VAIUE ) 
Brr MAP.LOOP^PART_1( ); 

5 { * (f " ;d - f,a ^ fm ^^^ * NULL) 

temp fa 
total count** 

) 

) 

airay^stan** 
BITMAP_LOOP PART 2( ) 

10 LaK. 
case not_©QuaMist: 

if ( Ust_head == NULL ) 
errors (Nua.PO.NTER.ERR. ERROR. NO.STATUS. « 

r sard's S3 xnsr* — - r 

for <mo*.i : «>»«=f«a«.f«.d I f»w_ 0 « M , ) ., inait _ eoun , : Bto ^ ) 
found = 0; 

^(faed^fwJoTnelo.otfsetJ^faeo.stnngl^toj , s NULL) 

list_head « search vaiue; 
white ( bsijiead »=~NULL ) 



15 



20 



30 



( l *_"«*»iW».«nnfl L va«. .■st_neao-.smn 9 .>s,r,„ B _,en 9 m, , 



founo**. 
break. 

) 

^ »'$Lneao e irst_head.»neKi. 
( *f ouno ) 

{ 

^ f,C,dff,e,d -^ Se,} - >f,xefl « smn 9i ,nto )-^rt seiea- 
com oare vaiue r 1 

, 1 " 

> 

rf ( eompare.vaiue <= MISSING.MEOIUM. VALUE ) 
BITMAP_LOOP_PART_1( ) 

* "'«W-f'««sT<*>d.o«,a l ).»f U e 0 _«nng|-array.startJ ■» NULL) 

rt Sin* " ,e0 Brt - ,e,ec ' not matcMng me list •/ 



temp |= ij. 
toiai_couni**. 

) 

) 

BWll array sian** 
BITMAP^LOOP^PART^2( ); 

break. 

Default 



3 5 ^-^^^^"-VALUE. ERROR. op«*or. 

oownor (oefault) m aearw.mixeO.l.tnna.tor.vaJui^; 



) 



break: 
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r initialize trie status flag •/ 

if ( compere.veJue * MISSING_MEDIUM_VALUE ) 



) 



} 

rmum(total_count) 



for (mm : rwx<rfa^f,e)d|fi«ld.offialH^_coum: md*~) 

r must verify an allocated cam structure •/ 

if (f«M_fieldffieW^onseth>faea .strmgfmox} t» NULL) 

f »^f»^fieW.oftsat>.>fBad^stmBl«naK}^oit select = o 



r 

1 0 2 SEARCH_LARGE_F1ELD_ARRAY 



! t™"!™ V>luea * ^ fl6taa compared 
F^n^n v.Ka«ar. yU searcne, all values m array 2 f or the 



Z SEA KCHJ>R0CESSJ*RRAY expands as: 
15 Z jf ( #afra y.««t oper 'array_start1 ) 

2 temp 

^ tempi |ai|; 

~ total_count**- 

Z ) 

~ anray_stan«-»>; 

arrey_start1+*; 



20 - 

7 



oper being supsututed lor witn >= i= 



.etc 



« ••^^e.f» W _a„ y(arTay slan afT8y _ s|am ooeratof 

unsigned trti •array start ""'".jHta.resuRs^bitroap) 
unsigned mt •array^starti; - 
enum fieid_operator operator. 

mt num^pus. 

25 * vua °'" nap • f «uns_bitmap. 

unsigned int j; 

unsigned mt tptai_count = 0 
unsigned mt "temp, 
unsigned mi i.j.kk, 

temp a resutts - pitmap->start. 

switcn (operator) 

30 C 

case equal 

BITMAP_LOOP PART 1( j 

BITUAP_LOOP PART 2( ) 
break. ~ 

case greater jnan 
35 BfTMAP_LOOP PART i( ) 

BITMAP_LOOP PART 2( ) 
break; 
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greater man •oust: 

"BITMAP LOOP PART 

if ( •aiTay start >■ *vny ttartt && •arrey.stan < MISSING.LARGE VALUE ) 
SEARCH~PROCESS_ARRAY( ); 
BrrMAP_LOOP_PART_2( ); 
5 breaK; 

case less man eoual: 

BiTMAP_LOOP_PART_1( ); 

if ( 'array stan <« "array start 1 && "array stem < MISSING LARGE VALUE ) 

SEARCH_PROCESS_ARRAY( ). 
BrTMAP_LOOP_PARTj2( ). 
breaK; 

case less man: 

10 * BITMAP J.00P_PARTJ( ); 

rf ( •array.sten < •array.stam && -array stani < MISSING LARGE VALUE ) 
SEARCH PROCESS ARRAY( ) 
BITMAP J.d0P_PART_2( ). 
breaK. 

case not eoual: 

BITMAP_L00P_PART_1 { f m 

rf ( •array_stan »s 'array startt && 
c 'array stan < M1SSING.LARGE.VALUE && 

±D -array startl < MISSING.IARGE. VALUE) 

SEARCH_PROCESS_ARRAY( ). 
BrTMAP_L00P_PAR^2( }; 
breaK. 



default 

error_nanoier (I WALID.SWITCHVALUE. ERROR, operator, "operator n searcn.laroe Jieid.array-). 
20 j breaK, 

retum(total count); 

} 
r 

- SEARCH_MEDIUM_FIELD_ ARRAY 

** Used, when me values of two fields are compared 
25 — For a given value m array 1, it searenes all values in array 2 forme 



rtt seairh_medium_f»etd_arTay< array_staa array_start \ .operator. 

num_Drts.resuris_brtmap) 
3 0 { unsigned short •array_start: 
unsigned short 'array_start1 . 
enum field.operator operator, 
rtt num^brts: 

struct bitmap Tesufis_brtmap. 
unsigned int p 

unsigned int total_eount = 0; 
unsigned int nemp; 
- 5 unsigned rtt i, jj, kk; 

temp = resurts_bitmep-> start; 

switch (operator) 

{ 
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case equal' 

BfTMAP_LOOP_PARTj( ); 

Ul^^»oZ^I a ? ay - lUm1 ** « MISSING^MEDIUM VALUE ) 

SEARCH_PROCESS ARRAY( ) ~ 

B(TMAP^LOOP_PART 2{ ); 
break; 

case greater jhan_equal: 
5 BrTMAP_LOOP_PART 1( y 

!^:wSJ^S?, , ) " %arr3y - S,an * MISSW ^MEDIUM.VALUE ) 

BrTMAP_L(5bP_PARTj2( ); 
break; 

case greater jhan. 

BITMAP_LOOP PART 1( )• 

n n arrwAP^Lobp part 2( ) 

break, 
case to3s_than_eoual 

BITMAP LOOP PART 1( ) 

BITMAP_LdOP_PART 2( ); 
break, 
case less jhan 

BrTMAP_LOOP_PARTj( ); 

15 ci?^ 3 ^* 13 " " " a ^ a y-» lart1 " -array. stam < MISSING MEDIUM VALUE ) 

SEARCH_PROCESS ARRAY( J " - ^ Ut } 

B!TMAP_LOOP_PART 2( ). 

break. 

case noi^equai 

BlTMAP_LOOP_PART_1( ); 
t ( -array.stan •» "array_«tari1 44 -array sian < MISSING.MEDIUM VALUE 44 -array nam 
< MISS1NG_ME01UM_VALUE) *y_«ani 

20 SEARCH_PROCESS ARRAY{ ). 

BITMAP_LOOP_PART_2< ). 
break, 

case between. 

oelauit 

*~zt handier (IN VAL!D_SW1TCH_VALUE. ERROR, operator, "operator m seven medium f.eid ar*v"« 
oreak: . 7 '• 

) 



25 



refjr-?^ial_count); 

r 

2 SEARCH_SHORT_FlELD_ ARRAY 

- Used, when the values of two fields are compared. 

~ For a erven va*je m army 1, a searches au values « array 2 tor the 



30 

ru searm^ S nori J, e ^array( array_,tan. array_startt. operator. 

unsigned cnar •arr»y_itan; num^Das.resufis^brtmap) 
unsigned char a array_ start i ; 
enum fiekJ_operator operator, 
irtt num_bits; 

struct brtmap Tesuftj bitmap 
{ ~ 
unsigned int i; 
J 3 unsigned sit total_count e 0; 

unsigned mt temp; 
unsigned int i, jj. kk; 

temp = results - bftmap->start 

switch (operator) 
{ 
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caeeequat: 

BfTMAP.LOOP.PART.1C ); 

^i^^^ l o^«?J Ta 7«^ tart, && -anay.start < MISSING.SHORT VALUE ) 
SEARCH.PROCESS ARRAY( ) 

BfTMAP_LOOP PART 2( ); 
5 break; 

case greaterjhan_equal: 

"bITMAP_L00P PART 

!^:^'eK^ " ' 9n ° r - Stan < M ' S ^_SHORT_VALUE , 
BrTMAP_LOOP_PART 2( ); 
break; 

case greater jnan: 

"BITWAP_L00P PART 

1 0 ^"SSSffiaSSc? " afTSy - ,Ian * "'SSING.SHORT.VALUE ) 

BrrMAP.L0OP.PARTj( ). 
break; 
case iessjhan_eaual 

BITMAP LOOP PART 1( ) 

sIS-^ES^; " ^ ay " S,am ' M '«'NG.SHORT.VALUE , 

BITMAP_LdOP_PART_2( ). 
break, 
case tes5_man 

- 5 BITMAP LOOP PART 1( ) 

BrrMAP^LOOP_PART 2( ). 
break, 
case not_equal 

8rrMAP_L00PJ>ART_1( ); 

rf ( •array^siart '= •array_startl && "array_start < MISSING SHORT VALUE 
9H &4 "airay^starti < MISSING SHORT VALUE) 

ZU SEARCH PROCESS ARRAY( f 

BITMAP^L00P.PART_2{ ). 

brean. 

case between, 
oefauii 

error_nanoier <tNVALlD_SWlTCH_VALUE. ERROR, operator. "operator m search_snon_fie: 2 array- 



25 



break. 

) 

relum( tc;3i_ccunt). 



30 



r 

~ SEARCH_DOUBLE_FlELD_ARRAY 

- Used, wnen the values of rwo fields ere com oared 

~ For e grven value m array 1 . it searcnes all values in array 2 for the 



35 r Note: as of May 1993. doubles are not yet actually suooonad Ta 

MISSING DOUBLE VALUE to on amfinmTmr* rv« LV^T? To use this we will need a 

*_uuuBLt_VALUE to be defined end put mto the rf statements in place of MIS5ING.LARGE.VALUE •/ 

int *ea^double.f»eW.arr»y(array,start. array.stani. operator, 

num.oits.resutts.bitmap) 
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double *arr*y_ttsrt 
double *arr»y~start1 ; 
enum field_operator operator 
fit num_twts; 

struct bitmap "results bitmap; 
5 I 

unsigned ini j; 

unsigned mt total^count = 0; 
unsigned int nemp; 
unsigned mt tempi; 
unsigned tnt i, jj, kx; 

temp = resufts_bitmap-> start 
switch (operator) 

10 { 

case equal: 

BrTMAP_LOOP_PART_1( ); 

^?^«^^^^ Start1 -array.stan < MISSlNG_ LARGE VALUE ) 
SEARCH_PROCESS ARRAY( ) - } 

BITMAP_LOOP_PART_2( }. 

break: 

case greater_man_eaual 

BfTMAP^LOOP PART 1( ) 

is «3S-«5u MS r tt * arr8y - $,an * m,ss,n ^«.val UE , 

BrTMAP_LdOP.PART 2( ). 
break; 

case greaier^tnan: 

"bITMAP^LOOP PART 1() 

BfTMAP_ldOP_PART_2( ). 
break; 

2 0 case iess_tnan_eauai 

BITMAP LOOP PART 1( ) 

BITMAP_LOOP_PART 2{ ). 
break, 
case lessjnan 

BITMAP^LOOP PART 1( ) 

l^y^t^^ '^-^ « M, SSING_LARGE_ VALUE , 

^ BJTMAP_LOOP_PART_2( ). 

break. 

case not^eouai 

BITMAP_LOOP_PART_1( ). 

if ( •array_start »« •array_starti && •anay start 

< MISSWG.LARGE_VALUE U -array.startl < MISSING LARGE VALUE) 

SEARCH PROCESS ARRAY( ). 

BrTMAP_LdbP_PART_2( ); 
break; 



30 



case oerween 
oetault. 

error_nanoier ( I NVAL1D_SWTTC RVALUE. ERROR, operator, -operator in sean*_oouWe_f*W_arreyn. 
break; 



35 } 

JJ retum(tot8l_eount); 
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r 

2 SEARCH_FLOAT_FlELD_ ARRAY 



~f? m £™? *" * compared. 



10 



7 



»nc put «o me * ,utemems m pace of MISSING URGE VALUE •/ 

tot 'array^ start: num .6«s. resuns_prtmap) 

float •array~start1; 

•"urn fi«W_opefaior operator 
bit num^bits; 

ttrua bitmap Tesutts_Oitmap; 

unsigned int j: 
15 unsigned mt total count = 0 
unsigned mt temp; 
unsigned wt j, jj, kx. 

temp = results_Ortmap->sian; 
switch (operator) 

case eouat: 

2 o B™ap_loopj>art_i( ), 

( 'array start == •arrav mm« • ■ . 
SEARCH>ROCESSW^ , ■"■*-«■« < MISSING.LARGE.VALUE ) 
erTMAP_LOOP PART 2( i- 1 J * 
break; " " l ,t 

. case greater^ tnan_eoual 

BfTMAP_LOOP_PARVl( ). 

rf( *array start >= •arrav ciarti • • * 

SEARCHlPROCESS ArSEi ," 3rTay - S,ar1 * M 'SSING^LARGE.VALUE ) 
BITMAP^LOOP PART 2( ) 
25 OreaK. 

case greater_tnan 

BrTMAP_LOOP_PART_i{ ) 

56^1 WE^OTi? %arTay - $,an * M| SSING.LARGE.VAIUE ) 
BITMAP^LOOP PART 21 ) 
break " * 1 ; " 

case ieis_tnan_eouai 

BITMAP^LOOP^PART t() 

3 0 J^-TOE fcarra ^ StafTl * «"*-URGE VALUE ) 

BITMAP^LOOP PART 2{ ) ■ 
Oree*. - - » #• 

case tess_tnan 

BlTMAP_lOOP_PART_1( ). 
if ( *array_start < •arriv s'tam /ut 

SEARCH PROCESS ARftftYn afTay -* ,am " M'SSING.LARGE VALUE ) 
BrTMAP LOOP PART 2( ) 
break; ~ 1 ;- 

35 
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cm noi^eoual 

5 BrTMAP_L00P_PART_1( ); 

if ( •array.sun '= •array. Stan 1 && *array_stan < MISSlNG.LARGE.VALUE LI 'array start t < MISSING LARG- valup* 
SEARCH PROCESS ARRAY( ). ^^^.VALUfe, 

BrrMAP.Ldop.PART3{ ); 

break: 

cast between, 
default: 

error_handier (INVAUD_SvVrTCH_ VALUE. ERROR, operator, "operator in searcft ftoat_fieia_arTay-). 
10 tweak. 

) 

retum(tota»_couni); 



15 r 

2 SEARCH_BfT_FlELDARRAY 

2 Used, wnen the values of iwo fields are comoared 

~ For a given value in array 1, n so arenas au values « array 2 for tne 



20 •/ 

r Note, as of May 1993. bits are not yet actually supponed. •/ 

rttseartn_bft^fie»d_afTay|array_stan. array.stanV ooerator. 

num_brts. results bitmap) 

unsigned cnar •srray.start. 
unsigned cnar "array.startl. 
enum fiaio_operator operator 
_ - m num_oni. 

D *tnjc prtmap •resutts^bitmap. 

r tnis neeos to be rewritten oeoenoant on tne new kmc of two bits for bits 7 

unsigned nt i; 

unsigned mt total^coum .» 0; 
unsigned nt "temp: 
unsipneo *tt i, jj. kk. 



30 



35 



temp » resuits_bnmap->start. 

switch (operator) 

{ 

case eouai. 

BrTMAP_LOOP^PART.1{ }; 
if ((*array_startA U ) && ( 'array, start l&jj)) 

temp |« |j; 
total 

} 
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array_stam«* 

BfTMAP^LOOP PART 2( ) 
break; " * 1 '* 

case rtot_equai 

5 BtTMAP_LOOP_PART i( j 

mrmmjtjmUi} £& fanay.staiti&a),, 

nemo |« U ; 
total couni** 

} 

array_start** 
■ray^starti**- 
BITMAP~ LOOP PART 2f ) 

case greater_tnan_equat 
case greaterjnan" 
case iess_man_eauai 
case iess_tnan~ 
case between 



•rror.nanoter (IWAUD.SWTCH ^ut^^T^l^^^^ ***** * ai ° n man 0e,au * V 

c. ERROR. 0^,0,. ^ ^ 



break 

15 default 



error^rtandier (INVALID SWITCH VALUE prrhd 

.VALUE. ERROR, ooerator 'operator icetaurt, m searc^t,,, j^array > 



j break. 
fetum(tota^count), 



20 : 



- SEARCH_STRING_RELD_ ARRAY 

- Used, when the values of two folds are com Dared 

Z lZ!Ll^ VatUe ' n ' rn>y1n " artT * s a » va.ue* m array 2 for the 



25 



30 



35 



■it search_stnng_f»eld_8rray( 



unsigned cnar "array_start. 
unsigned cnar •array_5tarn . 
enum fieio_operator operator 
mt num_0fls. 
int lengtn; 

strua onmap "resuits^bnmap. 



{ 



unsigned mt 
unsigned mt 
unsigned mt 
unsigned mt 



erray_stan. 



array_starn. 
operator, 

num^brts. 
length. 

resuits_bitmap) 



i: 

total^count = 0; 
nemp. 
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temp ° resufts_brtmap->staft 
swttcn (operator) 

{ 

case eaua!. 



BlTMAP_LOOP_PARTj( ); 

rf (stmempt array start, array start! . tength)==0) 

( 

"temp }= ij. 
total count**, 

) 

array_ start lengtrt: 
array start i lengtn: 
BITMAP_lOOP_PART_2( ); 



case not eoual: 
!Q BITWAP^LOOP.PART^K ); 

rf (stmcmp<array_stan. array_start1 . iengtn)>=0) 

{ 

"temp |= q: 
total count**; 

) 

array. start ♦= lengtn: 
array start 1 *= lengtn: 
BfTMAP_lOOP_PART_2{ ); 
break. 

1 5 ease greater_tnan_eouai 

case greater_tnan 
case iess_man_eoua! 
case iess_tnan 
case oetween 

r m case we want different future fail action tor tnese operators "/ 
error_nand«r (INVALlD_SWrTCH_VALUE. ERROR, operator. "invalid operator in se arcn_ stnng_f te KJ_ arra y ") 

OreaK 

~ n default 

^ u errorjianoier (INVAL1D_SWTCH_VALUE. ERROR, operator, "operator (default) m searcn_ string Jieid_arrayT 

oreak. 

OreaK. 

} 

retum(totai_count) 

} 

25 r 

- SEARCH_FSTRING_FIELD_ ARRAY 



rttsearcn tstnng_fieid array! array start. array_start1.ooerator.num_brts. lengtn. 

CT * f_oflset,t_oftsetl,resutts_bitmep) 

unsigned short *array_start 

2 n unsigned snort *array_st*rn ; 

enum lieW.operator ooerator. 
rit num_oru, 
nt tangiru 
int f_oflset 
int f_off sett; 

strud oomao "results bitmap; 
{ 

unsigned nt I 

unsigned int total_couni * 0; 

3 5 unsigned mi temp. *res; 

unsigned mt i. jj. kK 
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t*np * resu(ts a brtmap->5tart: 
res « results j)itmat»sian, 
iwitcft (operator) 



•Qua!: 

BJTMAP_LOOP_PART 1( ) 

^^^t^!°T al stnng * ,omd ■"■*-««■ 1 " 

rx3 * cav feeo J»k3 taoia witn passed f.offset moex v 

r 

^Mahe* wrtn an access voiauon. step Uke.y unneooea but proves* acaneaatety 
i» (<ta«»_rield[f_otfiat)-»f«ed_«nn B [« a rn V start] <=0)8A 

Ismp |3 Jj; 
totat count** 

) 

} 

array_start»». 

array_start1»»; 

BITMAP_LOOP_PART 2( ). 
break, 
case noi_eouai 

20 BITMAP_LOOP_PART_1(). 

ri Kmg_n_compare wis a. ,trm 0 tna! » louna us.no array star, 1 as 
moices. us«g fueajiew table „«, passes f.oftset moex •/ 

n ((f«eo.f,eh3!t_offsei!-»f l) , 0< j_ stnr ,g ( . arra . , s 0 
' f » e < J . f '««['-0«set1h>f BW ,_, tflf , B( . STO ;_ lt4 ; i] „ 0)) 

<f ((Stmonp, fa^J.e«;f_cSsMU>l«eo_str.n C ;^av startl-ssnno 

25 ( fuefl -" e, °:'- on »»r-»fueo.s t n ng i-,rray.s 1 aai|.>s,nn Q lengmj) .= 0 ) 

lemo |= u 
lota i count 

) 

) 

array^stan** 
array_stam** 

BITMAP_LOOP_PART 2( ) 
break. 

case oreater_tnan_eouat 
3 0 case greaterjnan" 

case »ess_man_eQual 
case iess_man~ 
case between 

*n* M r t^Z^^^^^^ ■Q*on for these operators V 

.switch J/ALUE. ERROR, operator, "mvaw ooerator n searcnjstnngj.elfl^erran. 

break. 

default 

error_nanoier (INVALID SWITCH VAIUE ERROR rm» r .*~ - 
35 ^ LU£ ' ERR0R - op *« 0f . ^ default) m searchjstnng J,eld_array") : 

j break; 

retum(toiai^count), 

) 
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20 



r 

- CHECKJJST_FOR_MlXED_STRINGS 

• checks ■ pitMd list of enaned list_types oats structures wttn dwaaer 
** stnngs pointers lor any • or ? wtlo cans moted stmg indicators. 

— if any * or ? aw is found, returns 1 tor mfeea strings, if end of list 

— is found without wild cams, returns 0. 

- Used tor both foced_stnng and stnng cases. Both ere passed list with 
~ cnaraaer strings to mater 

•/ 

int chec* JisMor_maed_stnngs( search_list ) 
strua list types -search list: 

I 

struct teletypes *l»t_head; 
list_head = searchjrst: 



while ( list head != NULL ) 

{ 

r return 1 if wild card is found */ 
if ( tstrchrtlist_heao->stnng->sVTng_vaiu«.*r) is NULL) |! 
(stn?rthst_heao->stnng->stnng_value.' - > «=NULL) ) 
15 retumd). 



list_head = list_neao->next: 



} 



} 



r no mixed stnng wild card cnaraaers found, return plain stnng code 0 •/ 
reium(O). 



r 

2 SEARCH_DATASET_FOR_ VALUE 

— Calls the aooropnate routines to OutkJ tne results cased on tnerr field 
-types 



30 



35 



nt search_oatasei_fo/_vaiu©f data 



svua dataset *oata. 
sirua aataset •datav 
enum oa:a_type f»e)d_type. 
nt fieto_size. 
nt field_offset: 
ntfield_offsetl. 
enum field_operator ooerator. 
union searcn_Rem searcn_vaiue, 
enum searcn_vatue_item searcn_vaiue 
struct bitmap - resutts w Oitmap; 



oata ! 

f»eio_rype 

fteio^iae. 

f»ekJ_oftsei. 

fieio^offsetl. 

ooerator. 

searcn_vaiue. 

searcn_ va fue_rype 

resuns_ortmap) 



-typ«: 



{ 
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10 



unsigned int total_count = o. 
tnt num_Dtts; 

num_biis = aata->numoer_of_items: 

$ 

switcn (field type) 
f 

case collars- 
case floattng_pomt 
case iarge_mteger 

tf ( searcn_vaiue_rype s= fteld_vaiue) 



{ 



total_ccunt « searcnjarge_field_array{ 



) 

else 

{ 



if ($earcn_vaiLie_ryD€ == h$ , waiue , 
/• we are loowng at a usi of vaiues 7 

total_count = searcnjarge_ array Jo^vaiuei 



20 



) 

else 

{ 



if (operator=t>etween) 
total_count * search_medrum_arTayJor_vaiue( 



else 



totat.count * s«arcnjarge_arrayjor_va.ge{ 



30 



35 



) 

} 

break 
case year_montn 
case year_montn_oay 
case meoium^inieger 

rf (searen_vatue_rype == fiald_value) 



total_count = searm_medium_fiekJ_arTay( 



data->items 

caiai->«ems. 

operator. 

num^bits. 
resurts_oitmap). 



oa:a*>nems 
(unsigneo intlO 
(unsigneo mnc 
searcn_vatue list 
ooerator. 

aata->numoer_of_ items 
resuRs_Drtmao) 



-data->rtems. 

*«arch_vaiue.between_rnteger->iow. 

searcn_vaiue.t>eiween"njegef»>hiah 
NULL. "* 

operator, 

oata->number_of_items. 
resutts^bitmap"). 



data->items 
searcn^ vaiue integer, 
(unsigned moo 
NULL, 
operator. 

daia->numDer_o^nems 
resuits^oiTmapj. 



data-> items, 
data i-> items, 
operator, 
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) 

•IM 

{ 



r we 

{ 



Lvahje_type «= list_ value) 
(oowng at a tut of values 7 

totii_count = •earch_medwm_8rTay_for - vahje( 



10 



) 

•156 

{ 



ff (operato/ssbetween) 
totai_cDunt = Marai_mex)iufn_array_for_valu6( 



15 



eise 



total_count = sflartt)_mea«um_afTay_tor_vaiue( 



20 



25 



} 

) 

break, 
case cnaraaer 
case smaii_mteger 

if tsearcn_vaiue_type == field_vaiue) 

t 
% 

total_count = searer_snon_fieia_array( 



) 

eise 

{ 



30 



ff (searcn_vaiue_type hsi_ value) 
r we are looking at a ust of values 7 



totai_count = searcn_snon_arrayj 0 r_vaiue( 



35 



) 

eise 

{ 



nurn_biTs. 
resutts_brtmap). 



Oata->rtems. 
(unstgneo mt)0. 
(unsigneo mt)0, 
searcn_vaiue.Ust. 
ooerator. 

oata*>numDer_of^iterhs. 
resutts_bitmap). 



data~>nems. 

searrn_ value . between_m teoer-> low 
searcn_ vaiue between mteger->mgn, 
NULL, 
ooerator. 

Oata->numDer_of_ items. 
resuns_bitmapj. 



data~>fiems. 
search_vatue. integer, 
(unsigned ml JO. 
NULL, 
operator. 

Oata->numoer_of_items. 
resutts_bitmap), 



aaia->nems 

oatai-xtems. 

operator. 

num_bits 

resuns^bitmap) 



oata-xtems 
(unsigneo mi)0. 
(unsigneo mi)0. 
searcn^ vaiue ust. 
operator. 

oata-»numoer_of_ items, 
resuns^bitmap). 
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toiai_count = searcn_snon_array_tor_vatue( 



eise 



toial_eount » searcn_snon_array_for_vaiue( 



10 



15 



} 

) 

break. 

f«ed_strmg 

if (searcn vatue type == fie la value) 

totai_count » searcnjstnng_field_array( 

data-> items. 
oatai->nems. 
operator. 



20 



} 

else 



resuits^ottmao). 



oata->items 

searcn_vaue Detween_tnteaef«>iow 
searcn vaiue between mteger->nign 
NULL." 
ooerator. 

Cata->number_of_items 
resutts_oitmaD). 



data->nems. 
searcn_vaiue integer, 
(unsigned int)0. 
NULL, 
operator. 

oana->rtumber_of_items, 
resuits.Ditmap). 



num_brts. 
fieid_size. 
field_offset, 
field'offseH 



30 



35 



tf (searen_vaiue_tyt>e ™ nst_ value) 
r we are icomng at a list of vatue s */ 
{ 

r see <f any mixed stnngs or not *7 

if ( cnocx_hs:_tor_mixeo stnngsi searcn value list ) ) 

{ 

r mneo stnngs case */ 

totai_couni = searcn_mued_fstnng_tor_ value ( 
data->nems 

searcn^ vaiue stnng->stnng_ value 
searcr_vaiue smng->sinng_iengtn. 



operator. 

results bitmap). 

)~ 
else 

{ 

r strings wrthout ? or • wildcard cnaracters •/ 
totai^count = searcn_tstnng_arrayJor_vaiue( 
da La-> items. 

aearcn_vaiue siring->smng_ value. 
searcn_vaiue. stnng«>stnng jength. 



operator. 



results bitmap); 

f 



f»eid_ottset. 
searcn^vaiue list. 

data->number_of_rtems. 



field_offset. 
searcn_va*ue bst. 

data->number_bf_items, 
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} 

else 

{ 



rf (((strenrrsearcft^vamo.sinno^stnng vaiue ">•).=* N\JLl\ 
({sircnrtsearcn^vaiue.sinng^sinng vaiue -)>==NULL)) 
toui_oouni = searcnjsmncL array for vaiuet 
cata->tiems. " - 1 

searcn_vaiue strmg->stnng_vaiue. 
saarcn^vaiue.sinng^sinnQ^iongtn. 



10 



operator. 

resuns_bjtjnap). 
eisa 

totai_count = searcn_mued fstnng lor vatue( 
data- > items. " 

searcn_vaiue stnng->strtng_vaiue. 
searcn^vaiua.stnng^stnng^iongtn. 

ooeraior. 
resuits_bitmao). 



fie ld_ offset. 
NULL. 



cata->numoer_of_rtems. 



ftelo oftset 
NULL. 

oata->p.umoer_o?_»'*mj 



15 



) 

break. 



case string jc/oe 

rf <saarcn_vaiue_type « fieid_ value) 



totaf_count = seaw_stnngj»eid_array( 



20 



else 



aata->items 

catai->ijems 

ooerato' 

oaia.>numoe.'_c'_iterns 
resuns_o»tmaoj 



< 



25 



H (search, value.type ■== tat value) 
r we are looking at a list of values •/ 

f see it any mixea strings or not V 

rf ( enecK.hstjcr_maea.smng,, searcn.vaiue hst ) ) 

r muteo strings case 7 
da^temr 000 ™ = Searcn ^^-«nngjo^aiue( 

seareh_vaiue.strmg->strmg value 
searcn__vaiue.stnng->string2»engtn, 



30 



35 



operator. 

results bitmaD) 
}" 
eise 

{ 

r strings wimout ? or • wildcard cnaracters •/ 
aa♦^->nems LC0Un, * S8arcn - stnno - arra yJ or - v atue( 

searcn_vaiue.stnng->stnng value 
searcn_vaiue.stnng.>stringjonotn, 

operator, 
resuJts_bitmap); 



searcn_vaiue list. 
data->numoer_of_nems, 



»earen_value.ljst. 
data->number_of_rtems, 
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{ 



if (({ ttrcnrt searcn_vaiue. stnng^stnng_va*ue T))= NULL) && 
((strcnnse«rcn_vaiue.stnn^->$tnng_vaiue —)*ssNULL)) 
total_count = Maren_«nng_arrayjor_vajuet 



else 



10 



total_oouni = searai_maed_stnng_for_vatue{ 



15 



} 

break; 



case brtjype 



if ( search_vatue_type == field_vahje) 



i 



totai_count * search_bit_field_array( 



20 



) 

else 

{ 



if (searc*_vatue_type == hst_vahje) 
r we are tooKing at a list of values V 
{ 

totai_ count = searen_Drt_array_for_vaiuei 



25 



) 

else 

< 



tot account s searcn_t>rt_arTay_far_vaiu8( 



30 



35 



) 

} 

break: 

case bad_data_type: 
default, orea*. * 
} r end of swnen 7 



oata->items. 

seercn^vaiue.sinno^stnng^vatue. 

search_vauje.stnng->itnng_iengtn. 

NULL 

operator. 

daia->numoer_of_rtems 
resus$_Dttmap): 



oata->rtems. 

searcn_vaiue smng->stnng_vaiue. 
searcn_vaiue. stmp^>stnna_iengm. 
NULL 
operator, 

aata->rtumber_of_rtem5. 
resuns_Ditmap). 



data->items. 
data1->ttems. 



data->number_of_nems, 
resutts_bmnap); 



ctata->ftem5 
funstgneo mt,D 
(unsignoo mtlO 
searcn^vaiue list, 
operator. 

aaia->numDer_of_ items 
resutts^Ditmap). 



oata->items. 
(urtsigneo m\)0. 
(unstgneo mtjO 
NULL 
operator. 

oaia->mjmDer_ot_nems. 
resutt$_Drtmap). 



retum(totaLcount); 
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- SEARCH_MF_IARGE_FIELD_ARRAY 



total_count = seanyi_mf_tary*_f*k3_arn»y{ 



5 m 



10 - 



Key difference between SEARCH_MF_LARGE_FIELD_ARRAY ano me otner 
SEAKCH_MFJ????_f > ielD_ARRAY routine is mat array_stan and array_stam 
ere oedareo as integers here ano otner types tn the otner rouunes 

Used, wnen tne values of fielas m 2 separate files are compared 
ie. SUB01.dollar_vanaoie > SUBD2.doUar_vanawe 

array_surt and array _stam pomt to large mteger arrays of actual 
data values from eacn separate file. 



array_starv 

array^stani. 

operator. 

mput_Pitmap. 

inout_brtmaol. 

resuits_bnmap). 



operator is 



ts > >s < <s 



15 - 



tnput_bitmao and mput_bitmapl are master_file sized bitmap witn tne number of 
bits set mat are m eacn file 



resutis_bitmao ts the bitmap table mis routine is developing with bits set 
wnen me data item is m array_sian ano array_stam and me operator condition 
is true. 



20 



input_bitmap and mput_bitmapi are of the size of tne master^fne and 
oefine wntcn elements are m eacn fue To seieo an nem me on must 
be set in com mput_pitmaps and men tne values pointed to by 
array_start and array_stam must matcn tne operator. 



- 5EARCH_MF_FIELD_ARRAYS< oper ) expands as 

-U = 1. " 

- kk = BITMAPJNTEGER.SIZE. 
*• for ( »=0 «nuffl P:t$ »»• i 



30 



35 



bit must oe s»i -n sotn jncut o rmass ana operator must oe true 

if ( (temp & a) && pempt &ui&& ("array sian oper *anay stani) ) 

{ 

Ves |= u 
total count** 

} 

if bit is set in aefmnton pump past data vatue 
if ( temp & u ) 

array_stan** 
if ( tempi & |j ) 

array_stam** 
bump to neit pit tn wpro ano rf neeoed to next word 
rf { -k* ) 

eise 

{ 

k* = BITMAP JNTEGER_SIZE; 
temp**, tempi** res**. 

) 



— note- in apove expansion oper 

- if ( {temp & jj) && Hempi & u) ("array^start OPER # anay_stani) ) 
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5 mt saar^i <BB inf ia large.field M array(anay < _stan.array a> start1 .operator. 

_ A input^bamap.mputjmmapt, results bitmap) 

unsigned mt array_start: 

unsigned mt *array "start 1 ; 

enum fietd_operaior operator. 

struct bitmap *mput_bitmap; 

struct bitmap *input_bitmao1 ; 

struct bitmap •resujts bitmap; 

{ " 
unsigned int j; 
1Q unsigned mt totai.count e o : 

unsigned mt lamp, tempi , nes; 
unsigned mt i. jj. kK num^brts; 

temp b mpu!_bitmao->stan; 
tempi ■ mput_bnmap1*> start. 

res s resuiu_bitrnap->start; 

num_brts « n5sutts_bitmap->numDor__of_brts; 



15 



20 



25 



30 



switch (operator) 
{ 

caseaquat 

SE*RCH_MF_F!ELOS.ARRAYS( if rarrayjnan =. -array.staril &4 ♦array_.tan < MISSING.LARCE.VALUE )): 
Oreaterjhan: 

SEARCH.MF_FIELDS.ARRAYS( if Carr.y_.tan » •array.«art1 U -array.start < MlSSING_LARGE_VAL_E )); 



case grcater_tnan equal. 

SEARCH_MF_FIELDS_ARRAYS( »( , array_itart >= __ *array_start < MlSSING_LARGE VALUE,, 

case tess_than_aoual: 

SEARCH_MF F[ELOS_ARRAYS( if Carrey start <- \»rmv « a *i - . ^ 

bra** ° l * 1 ""V-" 3 " «- anay^startl && •array_start1 < MISSING JJVRGE.VALUE )); 



less than 

Si 
br 

not.equai 



SEJCH.MF.RELDS.ARRAYSC If < -array.startl U ^.startl < M,SSING_1^GEJ,ALUE ,,; 



SBJRCK.MF.FrELDS.ARRAYSf if N ^rray.stam W -anay.stan < MISSING LARGE VALUE M 

•^y^tartl < MISS1NG_1_ARGE_VALUE)>. " UE ** 

bma< 
case between: 

default 

•Jiandler (INVALID.SWTTCH_VALUE, ERROR operator -or***** « . , , 

• ocwtTOr . operator « search_mf_large JieW_array-); 



} 

nstum(toial_count); 



r 



Z SEARCH_MF^MEDIUM_FIELD.ARRAY 

I ^^toSEARCH.MF^URQE RELD ARRAY ahow 

1 
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tit §«wch_mf_medium_fieW_8rTBy(aiT»y.itaft«fT8y_»tart1,ooer»tof. 

riput_bflmap,input_bjtmsp1 .remfts^bitmap) 

unsigned short *u i ay_sujrt: 
unsigned short "arrBy~start1 ; 
c enum fieUjoperator operator, 
struct bitmap *mput_bftmap: 
struct bitmap *irtpuf_bitmep1: 
struct bitmap "results ortmep; 
( 

unsigned int |; 

unsigned rrt total_count = 0: 
unsigned mt temp, "tempi, "res: 
unsigned int i. jj. kX, rtum_bitj; 

temp = input_bitmap->start; 
1 0 tempi ■ nput_br*mapi->start 

res « results J>itmap->start: 

num_bit3 ■ fesulU_brtmap->number_of_bits; 

switch (operator) 

{ 

1 5 case equal: 

SEARCH_MF_FIELDS_ARRAYS( rf ("array_start == "array_start1 && "array start < MISSING MEDIUM VALUE )); 
break: ~ . - 

case greaterjhan: 

SEARCH_MF_FIELDS_ARRAYS( rf ("array_start > "arrays tart 1 && "array start < MISSING MEDIUM VALUE )); 
break: 

case greater_than_eaual: 

SEARCH_MF_FIELDS_ARRAYS( if (*array_start >= "amiy_stari1 && *array_stari < MISSING_ME01UM_VALUE )): 
break: 
case tess_than_equal: 

2 n SlARCH_MFJFIELDS_ARRAYS{ if (*array_start "array startl && "array startl < MISSING MEDIUM VALUE )) 

break; " " 

case toss jhan: 

SEARCH_MF_FIELDS_ARRAYS( rf ("array_start < *array_siart1 && "array_start1 < MJSS1NG_MEDIUM_VALUE )): 
break: 
case not_equat: 

SEARCH_MF_FIELDS_ARRAYS( rf Parray_start != "array^startl && •arrey_stert < MISSING_MED1UM_VALUE && 
"array_start1 < MlSSlNG_MEOIUM_ VALUE 

break: 

2 5 case between: 
default: 

■ncrjmw (INVALn).SW.TCH_VAtUE. ERROR, operator. T,per«or m »e B «,_m._m«. 1U m_f l . W _a lray - ) ; 
break: 

> 

raturnpDta)_ceunt): 

30 



35 
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r 

- SEARCH JtfF_SHORT_FIELD_ARRAY 

- Identical to SEARCH_MF_LARGE_FIELD_ARRAY above except that 

- arTay_stananderray_start1 are deaared as uns»gned short type 



irtt »eafch^mf_shoft_field_an»y{array^staaanay_start1 .operator, 

jnput_bitmap,mput_brtmapt .results bitmap) 

5 unsigned char •array.start; 
unsigned char *array_startl; 
enum fieJd_operator operator, 
fltruci bitmap *mpui_brtmap; 
struct bitmap "irtput_bitmap1; 
struct bitmap "resutts bitmap; 
{ 

unsigned rtj^ 

unsigned irtt total_count * 0; 
unsigned int temp, nempt. *rer. 
0 unsigned int i, jj. kK, num_brts; 

temp s fnpcrt_b!tmap-> start- 
tempt * input J>itmapl->start; 

res = result$_brtmap->start 

num_bits = resutts_bitmap->rxjmber_of_bits; 

switch (operator) 

5 < 

case equal: 

SEARCH_MF_F!ELDS_ARRAYS( if ('array_stan -array_start1 && *array_stan < 

< MISSING SHORT VALUE )) break 
case graaterjhan: 

~SEARCH_MF_FIELDS ARRAYS( if (-array start > •array start 1 && -array_start < 

MISSING SHORT VALUE )). break: 
easegreater_thait_eauai 

"S^CH MP.FlELOS.ARRAYSf if (-array_siart >= -array startl &2 -array start < 
<M!SSlNG_SHORT_VALUE)) braak. 
case less Jhan_eouai 

0 ~ S ^J£» MP *22£ S AHRAYS( rf rarray.stan <= -array startl && -array startl < 

< MISSlHG_SHORT_VALUE )). break. 

case less Jhan: 

SEARCH MF FIELDS. ARRAYSf if farray start < -array startl && 'array stani < 

< MISSlNG_SHORT_ VALUE ». break, 
case not_equaL 

SEARCH MF FIELDS ARRAYSf rf f'arrav start 'array startl && 'array start < 

< MlSSlNG_SHORT_VALUE && -anay.startl 

< MISS1NG~ SHORT* VALUE )). 
break. 

! 5 case between. 

default: 

enorjiandler (INVALID. SWITCH^ VALUE. ERROR, operator, -operator tn searcn_mf_short Jieid.anay~). 
break: 

) 

retum(tota!_count); 



5 
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5 r 

2 SEARCH.MF^BniRELD.ARRAY 

- ^-u** end array.surti «re oedareo as unsigned cftaMypT 

- AND 



10 



30 



- ^Z^H t C8SaS ^ ^ ^ statement for bits (wh** 

- ^ ' *** MS ^ arn,y - $tan ■^stam 

I we^L"^ l00iC h " " ^ how are bus stored 

_ wnue we success*** too* at bus 1.2,4.8.... and on up. 
7 

r Note: as of May 93. bits not reallv supported char™ -~ „ 

fit soart»_ mLb ^ roubne and elsewner. bKety needed yet 7 

1 5 unsigned char •arr3y_start «W_bitmap.mpm_bitmap1 .results j>itmap) 

unsigned cnar "array~start1; 
•num field operator operator 
strua bitmap "mput^bftmap; 
struct bitmap tnpuTbitmapl; 
struct bitmap *resuto_brtmap; 

unsigned int j; 

unsigned int tota!_ count e 0; 
unsigned mt temp, temp 1 . tez 
2 0 unsigned int i. jj, toe numjws: ' 

temp = mput_bitmap.>stan. 
tempi =input_bitmapi.>siart; 

n * - result s_txtmap-> start; 

mjm^bits = rBsuns_bimiap^rnjmber_of.brts: 
switch (operator) 

25 I 

case equal 

BITWAP^LOOP^PART 1( ); 

rtn must be set m botrT define bitmaps and tn both 
data arrays 7 

rf ( (temp & jj) 44 (tempi 4 ij ) 44 

( rarray_siart 4 jj) 44 ('array startl 4 n ) )) 
SEARCH_MF_FIELDS_ARRAYS PART 2 



Breax: 



35 
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r DJT - SVP - what do we co to pcK bits hen??. I am cnoosmg 
to pick if m bom oefmition maps and bom ous m array start ana 
in 8rray_startl are not set - «. opposite of case eouafv 
case not_eouai 

BITMAP_LOOP_PARTj( ), 

if ( (temp & #) Oempi & jj ) 44 

j( Carray^start & jj) && ("array startl & « ) )) 

SEARCH JYIF_FIELDS_ARRAYS PART 2( ) 
break; " " 

case iess_man: 

case *ess_tnan_equal: 

case greater_tnan: 

case between 



«ror.r»noT (INVAUDJ^CH. VALUE. ERROR, ooerato, -ooer„ or (.en^en, „ ^.m^.r.^-, 



1 0 to**. 

default 



.rTor.nano.er (.NVAtlO.SW.TCH.VALUE. ERROR. opera.or. "operator ,oe., U R, „ ..arcn.rnfj,* Jieia _ arTan 



break. 

retum(tota^count); 

} 

15 r 

2 SEARCH_MF_STRING_FIELD_ARRAY 

Z f 1 ^ 8 ' » S£ARCH_MF_LARGE_FIELO ARRAY above EXCEPT 
1. array staa and array start 1 m iwj^ - cauckt 

~ 3. supports as and != cases only. 

2 A - u*es stmcmp to oeooe if a maten or not 

7 

20 

int ~J"L«"n^ 

unsigned cnar # array_start »W_bitmap,inoui_bitmapl .resuits_bitmap) 

unsigned cnar •array^startl; 

enum field^operator operator, 
ntiengtn; 

struct bitmap 'mout_bitmao. 
struct bitmap *mpm_bnmapi 
2 5 tfnict bitmap ■resuits^bitmap; 

unsigned mtj: 

unsigned mt totai_count * 0; 
unsigned mt "temp, tempi, ves; 
unsigned mt \ t u , kk. num bits; 
unsigned mt miss_sinngje"ri; 

m«s_stnng len s length* 

if ( (i«str»en(MISSING.STR!NG.VALUE)) < length i 
U miss_stnng_ien = i. 

temp = inDui_Ditmar»jtaa 
tempt = tnput_prtmapl->stan; 

res = resuits_bitmap->start 

num_bits = 'esutts_bitmap.>number_of_bits: 
2 - awiteh (operator) 
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_ case equal: 

BfTMAP_LOOP_PART 
* ( (tamp A ii) &i (tempi A 5 ) 44 
(sttncmpiafray stan. array_stam. length) « 0) && 

case rxaequet =s 0 ) 

^.V^T y -' tan0r " ,r ' ) '- ,Urt1 «^'*"«SS. N G.ST RING _VALUEw e 

10 BITMAP_LOOP_PART 

f { (temp 4 jj) 44 (tempi 4 ii ) 44 



15 



(«tmonp(«i»y_Man. anay_stait1. lenglh) .= oi 44 
break.; — — w. 



1 greaterjnan: 
case »ess_man_equar 
case iaw^tnan 7 
case oerween 



arror^hanoief (INVALID SWITCH v/ahic CDDM 

-°^ { 1 cm^ VALUE. ERROR, operator, "operator f betw^mi « . 

,D6TW ***) tn »M'cn_mfjstrmg field array") 



break; 

default 



•w.nanoiar(iNVALID_SWITCH VALUE ERROR on .«^ - 



break; 

} 

retumftotai_count); 
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equat: 



BfTMAP_LOOP_PART_ 1 (). 
* ( f lamp & 0 ) (tempi & jj ) && 



(stmcm««fray^$tan. array_stam. length* « 0) &* 
(stmcmpt array_ start. MISSING STRING VALup m«. — 

case not_equal 

^VSLT-"" " 8ff " y - Stt ' ,, 8 "'SS.NG.STR.NG.VALUE w 
BJTMAP_LOOP_PART 1() 
« ( (lamp & „) 44 (Wol 4 u ) 44 

£!^- ,a,Tay - S,a,T " na> '- slan1 *»W '= 0) 44 
^H.MFJ.iuK.STR 5 ^^^ - 0, , 



breaK 

10 case greater_tnan: 

case iess_tnan_eQuaf 
case tess^tnan? 



•rror_nanoier (INVAHO_SWITCH_VALUE. ERROR, operator, "operator (oetween) m ssarm , 

coetween) in searm_mf_stmg tela array"! 
break: - ' '' 

Oefauit: 

efror_nanaier (INVALIO.SWtTCH VALUE ERROR 

15 ■ • OW,fa,0r ODera,or ,oe,au »> » -^.mt.,^. f(eIO _ arr8n 



20 



'} 

retum(iotai_count); 

r 

Z SE ARCH_MF_FSTRING_FIELD_ ARRAY 

- 2. tonotft of stnng field a passed unsigned cnar type 
" 3 5U *«*" c = and '= cases only 

- 1 fHH $ r CmP ,0 09009 rf • or not 

- LOff,et "* LOffMn ~ ~ — i-U* oata tatHes to us. 



25 ^ 

unsigned snort -am^sum LoWset1,mput_Drtmap mput_ortmapi results b,rma D > 

unsigned shon *array_siari1 . ' 
•num ftetd_operator operator, 
int lengtn: 

itLoffset: 
«f_offset1; 

■truct bitmap •mput_brtmap; 
«trua ortmap Vipuf pftmaov 
30 struct bitmap •results jj«map. 

unsigned mt j: 

unsigned int toiaf_counr s o, 
unsigned mt temp, tempi -res 
unsigned.™ i. u , kK nurnjms. ' 

tamp a mput_brtmap-> start, 
tempi s tnpui_tmmapi-> start. 

35 

res = results^brtmap->start; 

num - brt5 " ^^brnnap^rKimber^of.bits; 



substitute sheet (rule 26) 



WO 95/11487 



285 



PCTAJS94/12074 



switch (operator) 
{ 

ease equal: 



BITMAP_LOOP_PART_1 (); 

r $Jnn B _n_com?are ioo*ks at stnno tnat is found us.no array » an , ». 
■noces. us« a f„ M _f.eld tao» wnn passed f.oflse. !no B , ' " 



if { ("lams 4 j|) 44 (lemol 4 jj ) 44 

(faeo_f,eid!(_on J et!->f l xeo_stnn 0 |-arr a y stan | .. 0 ) 44 
(faeo_f,elo!l_o«,etl]->f«ea_ jmnB ,. arTa ; ' °> " 

seapch.mf s«[ - ° » 

break: ~ ~ *- 1 '* 

case not_equal: 

1 0 BlTMAP_LOOP_PARTj(); 

r stnng_n_compare ioo"ks at stnng thai is founo us.ng array , laa , as 
•noices. us,ng fued.f.ew taoie with passed f onset index V 
n ( (temo 4 j;) 44 pempi 4 jj ) 44 

{fuefl.field^offsetj^ftteo^stnngfarray stan) 0) 44 
(fwefl.f,eld[f_o«setlj.>f„e<j^strin9( -array stani] •= 0)) 



15 



S£ARCH_MF_FIELDS ARRAYS PART 21 ) 
breaK. " " - 1 



case greaterjnan: 
case less_tnar,_eouai: 
case less jnan" 
case between: 



error_nanoier (INVALIO_SWtTCH_ VALUE. ERROR, operator, "operator (o Mnsearcn..,.,^,^,-,. 



break; 

default 



Q error.nanater (l NVAt.O.SV^TCH.VALUE. ERROR, operator. - ODaraior (flefault) m h^j^.^^ 



) 

retum(iotai_count); 
) 



break; 



_ additional searm parameter,: m«p_count is associated with field, and array start 
_ map_count1 , if present o assooated with field 1 and array startl 

map_count2, ft present is the purchase to products map count ' 

pp.ope^coda 1 rs ma OCM 3 puro*so_product Junction cod. for fiekn , ana array stani 



- ~ £ SU !ir °~ * VafM,5hM ' ™ must be the drfWtion 

wTw^^Tl^! J typa of saved SUB Query bitmap or a SUB bitmap from a sub ouerv 

: ™£ta^i ^ , ^ ^ S UB0 L BrTMAP.SUBQ2... bW£ tne 

^ Nota: recoros counts customer, without purchase for product) records mat 

?^~ 90eneS ' ■ ndwort,be found EQUAL or NOT EQUAL, (or LESS THAN or 
GREATER J1>IAN_EQUAL). " 1 Lc;> - 1 

•/ 

ait M^.mf^^iarpe JieW^arraytan^^staaarray^siartl .operator. 

-nput_bitmap.ffiput_bitmap1 .resutts_bitmap, 
map_count.map_count 1 .map_count2. 
PP-OP*_code,pp_oper_codel .subjlag) 
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unsigned int *array_start 
uns^ned mt *array~starri; 
eoum fteto^op er e to r opera to r . 
struct bitmap *wiput_bamap; 
«rua bamap •tr*put_bnmapl; 
•too bitmap lresurts_bitmap; 
unsigned short Tnapjcoum: 
unsigned snort % map~countl; 
unsigned snort map*count2; 
5 unsigned mt pp_oper_code: * 
unsigned int pp_oper~cooei; 
p *ubj)ag. 

unsigned int 'array_end: 
unsigned mt •aray~endi 

MULTLFILE^PUR>RD.VARS; 
MULTl_FlLE_PUR_PRD_PRELiMS. 

r map_count « 0 is cus or sua ease <cus or sub to pur «r pom ru 
possibry many purchase or procucT ' ^ ""^^ r0COffl te 

map_count >= 0 is and mac count 1 n o is PURChasp ~ Donn. »~r* ^ 

^ » °- - "»°* many P^^^^^^"^ — 

WBrM compared to eacn customer record) 

map_ count »= 0 and map_ count 1 »= o is PURCHASE or ponni ir*Te . ». 

to many cases that are no, currently supponedV PR ODUCTS to PURCHASE or PRODUCTS (the many 

1 5 temp = mput_bitmap->start: 
tempi = mput_bimtapi.> start. 

res * resuits_bitmap->stan; 
num^bits = resuns_bitmao->numper_of_bits. 

U 8 1. ^ 
Kk r BITMAP^ WTEGER.SIZE. 

2 0 ilkt 1 = J BrTMAP_INTEGER^slzE 1$ ™ ^ f * W1 

rf f f maD count ) " *• 

{ " r cus or sub case no map counts for initial field •/ 

for ( i=o t<Purr»_Dr!s — j 

■rray r end1 array.stanw , mcw / 
rf ( tempi && jjn ) 

{ 

if ' *rr» " • ' 

switcn j pc open ) 
( 

case Purj3ro_oomam 
case any_pur _pro 
for t array^siam « array_endl. Bfray_stani~ , 

co no s o. 

switch ( operator ) 

30 ( 



ERlT^w, n - TEMPl( M,SS, ^IARGE VALUE ) 
ERR.IW^ S WUearcn^mf_pp J ar g eJ,eid.arriy ) , h 



rf( cond ) 
{ 

*w != a: 

totai_coum+*; 

break; 

35 ^ NEXT_FIELD1_BJT, 

break: 
case first_pur_prd : 
while ( array_start1 < array_end1 ) 



jf ( iff 1 & -tempi) r took a. is, of .ned bit n fi. tt1 on m .p 
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eend»0: 

( operator ) 



{ 



) 

»(eond) 
{ 



F1_F2JNT_DIRECT( M!SSING_UVRGE_VALUE ). 
ERRJNV_SW( aearen_mf^_iarpe_fiew_arrBy ). 



T** t" i): 
totai_coum**; 



} 

10 



15 



} 

break: 

} 

NEXT.FlELDl.Brr, 
array_stam**; 



secorK)_purj>rd : r reauired_count a 2 •/ 
thrt_pur B prt : r required_eount is 3 V 
if ( "mcl >« required count ) 

found * 0; 

wntto ( array stani < array endl ) 

{ 

if ( jjf 1 & tempi ) r took at bits defined tn fietdl bitmap •/ 

{ 

founo**; 
if ( founo ss reoured count ) 
{ 

cond = 0. 

switcn ( operator ) 

{ 

F1_F2JNT_DIRECT( MISSING_LARGE_VALUE ); 
ERR JNV_SW( search mf_pp targe field array ); 

} 
< 

Ves {= u. 
total couth**, 

) 

brea*. 

) 

) 

NEXT_F!ELDl_BIT. 
array siam~~ 

2d } 
) 

break: 

case rwo_pur_pm r reQutr©d_ count u2*/ 

case murtioie_pur_pra r reoutrea_ count is 2 V 
case tnree_pur_pro reau«reo_couni is 3 */ 

if ( *mci >» reouired count | 

{ 

for < founo=0 . array_ start i < array_endV array.siani** ) 

^ 0 cond * 0 

switcn ( operator ) 

( 

F1_F2JNT_JJF1_TEMP1< M!SSING_LARGE_ VALUE ) 
ERR INV SW( searcn mf_pp taroe i»eio array ). 

} 

if (cond) 
{ 

found** ' 

35 rf ( founo >« reouired count ) 

{ 

*res | » rj. 

tota»_couni*». 

orean. 

) 
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) 

NEXT FIELD 1.BIT. 

} 

) 

break, 
case tast_pur_prd 
if ( array startl < array_end1 ) 

5 ( 

for ( ma* t : md < *mci : ino** ) r mc= 1 to gei to last pur rec mis customer •/ 
{ 

array_stani**. 
N£XT_FIELD1 BFT. 

} 

while ( ino- > 0 ) 
{ 

if ( jrM & tempi ) r took at last defined bit 7 
{ 

1 0 cond a 0. 

switcn ( operator ) 



rf ( cond ) 
{ 

Tes |« ii. 

, - total count**; 

break; 

} 



{ 

F1 J^JNTJNRECTf MISSING_LARGE_VALUE ). 
ERRJNV_SW( iearoi_mf^p_ targe Jwid_array ); 



) 



prev^fieloi err 

-^ay^startl. " 



) 

break; 

2 q case ntt_pur _pra : 
if ( *mci >* 2 ) 
{ 

defined = 0; 

{ ) rew-i ,0 pet to last pur rec this customer •/ 

array_stam** 
^ N£XT_FIELD1_B/T 

wmie ( mo- > q ) 

25 { 

*<if1*1empi, r loo, etuist defied b«v 
defined** 

if ( oefmed 2 ) r i^w^ 

j ' r looking at next to last record •/ 

! 0. 



•witch ( operator ) 
{ 



3 ° E^N^ RECTf MISS| ^G_LARGE VALUE ) 



if ( cond ) 
{ 



} 

break: 

35 ) * 

PREV_FIELD1_B!T; 



total_ count 
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break: 

case iast2_purj>rtf : r required count is 2 •/ 

case iast5_pur_prd : r required'count is 5 7 

c r marxmg as found if at least 1 of thelasi reoutred count Ire 2 5) our nm . ^ 

3 meets criteria 7 «~_wni W^pra records tms customer 

if ( Tnd >« required count ) 
{ 

defined » 0: 

. ^(Wwk^c,:^, r r»= 1 ,o 9,. ,o U,t pur r« o^tomer V 

array start* *♦ 
NExf FIELD 1 BIT; 

1 0 wfiile ( md- > 0 ) 

{ 

if ( & 1 4 tempi ) r look at last defied bit 7 

defined**. 

cond s 0. 

swrtcn { operator ) 

{ 

!1tT 2 - INT - D,RECTf M| SSING LARGE VALUE J 

15 } BRR - ,W - SW < "*™."Opj w 

if ( cond ) 
( 

Tes |= v 

totaf_count**. 

break. 

) 

if ( defineo >= reoutreo count \ n « . 

{ ro.count) r have looked at last 2 (or 5) recoros 7 

2 0 BrM < 

J 

) 

PREV_FIELD1_BIT. 
—array nam. 

) 

Dree*. 

2 5 case avg_pur_prc r ra suD0Cr?-ng K' tt:c comparison* \ 

case totai_pur_prc 

error^nanoter (INVALID SWITCH VALUE ERROR no 00 »m 
PP.operi (avg or total) m searcn.m^p^argej«,d_a^a y "r " 



) 

) 

etse 

a*ciuoed_recoros+* ; 
^ Q it ( !suD_flag || u & temp ) 
erray^stan^. 



) 

md 



for ( ; array.stam < array_end1; array, start W ) 
NEXT^FiELDl^Brr; 



35 ) 

NEXT_F!ELD BIT; 

} 

) 

else 
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r next lope eeais with MANY to ONE casts (PUR or PRf> m ri »c ~ *■ ■» 

f ^ wuw> i*rray_siani ) is cus or sub V 

5 < 

array^end = array_stan ♦ Trie; 

if (tempi Ujfi ) 

{ 

iffmc) 
{ 

***** ( PP.oper ) 
I 

case anyjsur^pra ; 
for ( ; erray_start < array^ena: array_stan~ > 



»0: 

ewttch ( operator ) 

( 

j tKK - ,NV - 5W < M ^-mf^_iarpeJield_array ), 

15 rf(cond) 

{ 

Test**; 
totai_count+*; 

) 

^ NEXTFIELD_BIT. 

break: 
case first_pur_prd : 

2 o |? n,,e * afra y_start < array_end ) 

if ( j * temp ) r ^ a| lf| d8fine<J bjt ^ ^ bftmap #/ 

cond = o. 

switch ( operator ) 

< 

c!- B F2jNT -° IRECTf M, SSING. LARGE VALUE ) 
} ERRJNV_SW( searown, jp jaroe J*,5.a«y , 

25 rf(cono) 

{ 

•res 1=1, 
total count** 

} 

break. 

} 

NEXT^piELD^err, 

arTay^stan**, 

3 0 bfaak; 

case second j>ur_pr* : r reoui/eo count is 2 •/ 
case lh.ro j>ur_prd : r repw«f count a 3 •/ 

it ( "mc >= roquired count ) 

{ 

found * 0. 

while ( array_stan < array_end ) 

f ( 11 * nemp } ^ »ook « bits defied in field bitmap •/ 

5 founds; 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



291 



PCT/DS94/12074 



rf ( found « reoured count ) 

{ 

cone = 0. 

swrtcn ( operator ) 

{ 

5 P1_F2JNT_DIRECT( MISSING^ LARGE VALUE j 

^ ERRJNV_SW( searcn_m?^pja^ j.eio_arrayV 

If i cond ) 
( 

totat_coum** 

) 

break. 

, 1 

NEXT_FlELD_Brr. 
array_sian**. 

} 

) 

break: 

r different case at purchase/product level man three our ordv 
case rwo_pur_pra 
case multiple _pur_prd : 
*fCmc»=2) 
15 { 

r creating purchase level bitmap, mam all that auaWy 7 
for ( founo*0 . array_stan < array.eno. array_stan~ ) 

cond = 0. 

•witch ( operator ) 

{ 

ri_F2JNT_JJJ-EMP( MISSING.LARGE VALUE ); 
j ERRJNV_SW( saarch_mf^pjargejieldjarray ), 

if (cond) 



tsuno** 

rf ( found -= 1 ) 

{ 

sav_res = res 

sav jj ='y. 

) 

eise 

if ( found == 2 ) 
( 

*sav_res |= savjj. 
tot account**, 
•res f= u. 
total counts. 

) 



ZD 



30 if ( found > 2 ) 

{ 

•res i= u 
total count**, 

} 

> 

NEXT FIELD 8U. 

) 

) 

-3 - break: 

r note: at purchase or product level three _pur_prd uses different logic than two_pur_prd case 7 
case tnree_pur_prd : 

if ( •me >= 3 ) 

{ 
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r creating purenase >evet tmmao. mam all mat Qualify 7 
for ( founocO ; array_$tari < array^ano: anay_«an** ) 

cond = 0. 
twncn ( operator ) 

5 I 

D n_F2,I^JJ^TEMPf MfSSING_LARGE VALUE ); 

j ERR_lNV_SW( taarcn^mf^pp^iargejiaid'array ). 

if ( cond ) 
( 

found** 

rf ( founo «« 1 ) 

{ 

sav_re$ = res. 

10 C H- 

} 

else 

rt ( found se 2 ) 

i 

. sav_res1 » res. 

} 

eise 

rf ( founo s= 3 ) 

15 { 

*sav_res |= savjj 
**av_resl |= sav_yi. 

total count ♦= 3 

} 

etse 

( founo > 3 ) 

( 

2 o " res ,= • i 

ictai count 

) 

> 

NEXT FIELD BIT 

J 

} 

breaK: 
case iast_pur_pra 
if ( anay stan < an-a* ena » 
25 ( '" 

lor ( .no=1 no « -rnc .no- , r n 0 =, , 0 geI t0 „„ euf rec ,„„ CUJ10mer 

array stan** 
NEXT_FIELD BIT 

) 

wn>ie ( mo- > 0 ) 
{ 

Jf{j/&temp) r look at last defined bit •/ 

3 0 cond = 0 

twttcn < operator ) 

{ 

F1^F2.INT_DIRECT( M1SSING_LARGE VALUE ) 
j ERRJNV_SW( searen_mf^p_iarge J»ald_array ). 

if ( cond ) 
{ 

Ves |= u: 

•a c total count** 

) " 
break: 

) 

PREV_F!ELD_BrT; 
-array^siaa 

} 
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35 



) 

break: 

case nti_pur_pra : 
if ( mc >« 2 ) 
{ 

5 defined = 0: 

for ( jno«1 ; mo < Tnc: mo— ) r tnon to get to last pur roc mis customer •/ 

array start— 
NEXf_FiELD BIT. 

) 

while ( no- > 0 ) 

( 

if ( j & temp ) r look at last defined bit 7 

10 1 

defined—: 

if ( define© 2 ) r looking at next to last record •/ 

cond = 0; 
ewitcn ( operator ) 
{ 

F1 -F*JNT_DIRECT( MISSING LARGE VALUE ) 
j ERRJNV_SW( sean^ jnf^pjan^jield_array ); 

15 if(cond) 

{ 

•res 

total count—. 

) 

break. 

) 

} 

PREV.FIELD BIT 

20 } 
} 

break: 

case iast2_pur_pra ~ fe zu::eo can: ,s : 

case lasts _pur_prd : r reouireo'count ,s 5 •/ 

r ^ M ^ ' W • aaSt 1 01 me ,aSt 2 ,or 51 Dur -P r0 recor0 * ™ customer meets cntena V 
r creating purcnase levet m 8 D. marx ootn of test 2 recoros if ootn ouaiity •/ 
if ( *mc >= reouireo count ) 
{ 

2 5 deftneo = 0 

for { md=1. mo < -mc. mo** ) rmc=t to get to last our rec tn.s customer •/ 

emay_stan»* 
NEXT.FIELO BIT. 

) 

wnne ( mo- > 0 ) 

i 

t ( ij & temp ) /• iqok at tast oefmeo brt */ 

30 defmeo— . 

cone = 0 

switch ( operator ) 
( 

F1 _F?JNT_D1RECT( MISSING_LARGE_VALUE ) 
^ ERR JNV_SW( searcn_mt_pp_iaVgej«eia_array ). 

if ( cond ) 

{ 

Ves i= K. 
tout count—: 

) 



rf ( Oefmeo >= reomreo.count ) r have ioo*eo at last 2 (or 5) recoros •/ 



break. 

) 
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10 



) 

T^5 else 



) 



) 

PREV_FIELD_B!T. 
-array^jtart: ~ 

} 

} 

break: 

^ ^J**-**!' r n0t ^P 0 ™ 0 'or field comparisons V 

case toiai_pur_prd : 

error_nandier (IWVAIID.SW1TCH VALUE. ERROR dp ooer 1 
"PP_oper1 <avgortottJ)insearcn_mf _pp large fiett array") 
brean. 

} 

) 

eise 

^ e*duded_recoras**. 

for ( . array_stan < array_end: array_stan~ ) 

^ NEXT_F!ELD_BiT. 

NEXT_FIELD1 BIT, 
if ( »subjlag !) Jm & tempt ) 
array_starti**. 



{ P-ttumi 4i -map.eoune ) /" t»«n purcn.se or proouo. no purena»e to prooua •/ 

r p«rcr« M «o purer^ ^ te ^ go ^ #/ 



20 

r new do above for ease of 2 mao counts */ 

i 

r puxnase to prooua anc proouo ts purenase cases wouie go nere */ 

) 

retum(tota._couni ). 

25 ) 

T identical to iean^_mt_pp_iarge_f>ekd_ array except array_stan ano array _$iart1 
array_ena. array_endi are unsigned snort aata pomier. routine names in error messages 
ana uses MISSING_MEDIUM_ VALUE */ 

ffiout_b«mao.inout_bitmaol .resu!ts_bitmap. 
map_coum. mep_courrt 1 . map_count2 . 
pp_oper_eooe.pp_oper_codevsuo flag) 

unsigned snon •anray_start; 
2 0 unsigned snort •array~startt ; 

enum field_operator operator 

struct bitmap "tnput_ bitmap; 

struct bitmap *mpui_DrtmapV 

struct bitmap *resufts_bitmap. 

unsigned snort •map.count; 

unsigned snon "map_counil ; 

unsigned snort •map_count2; 

unsigned ru pp_pper_cooe: 

unsigned mt pp_oper_eooe1; 
35 subJUg; 

{ 

unsigned snort •array_end; 
unsigned snort •array%nd1: 
MULTI FILE PUR PRD VARS; 
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MULT1_FILE_PUR_PRD_PRELIMS; 

lamp ■ rw_b*map-»start 
tempi * rput_bamapi->start 

res * r»sulu_bitjnap-»staft: 

5 num_brts • re$unj_Ditm«p->number_of.biB: 

If ■ 1: 

kk = BITMAPjNTEGER^SlZE. 

if 11 * 1 • r f 1 items am associated wrtn fiewi 7 

ktf 1 « BITMAPJNTEGER_SIZE; 

jf ( lmap_count ) ran or tub case, nomapcoumifor i«f»W 7 

tor ( i«0; Knum bus; n-> ) 
10 < 

array_endl e array_start1 ♦ Tnc1; 
if (temp 44 jj) 

{ 

ff(TnCl ) 
{ 

switch ( np_oper1 ) 

{ 

case Dur_ord_domain : 
2~ case any_pur_prd : 

tor < ; array_startl < array endl : array startle > 

{ 

cond = 0; 
switch ( operator ) 

( 

F1_F2JNT_JJF1_TEMP1( MISSING MEDIUM VALUE ) 
^ ERR_INV_SW( search_mf_pp_meaium_fieid_array ). 

if ( cond ) 

20 ( 

•res |= i). 
totai_ count**; 
breax* 

} 

NEXT FIELD* BIT 

) 

brean 
case firs!_our_p-c 

wrwe i arra* siai 1 * array enci i 

25 i 

rf ( uf 1 & tempi ) r iook ai Hi oefmea dh m held 1 ottmao 7 

cono * 0. 

switch ( operator ) 

{ 

p1 -F2jNT_DIRECTf MISSING.MEDIUM VALUE ) 
^ ERR JNV_SW( searownf j>p_medium Jieio_array ); 

30 rf(cond) 

Ves |= u; 
total counts. 

) 



) 

NEXT.FlELDl.BrT. 
array.stani**; 

35 

case aece*id_ptjr_prd : r roou*ed_courd is 2 7 
case tfwo^pur^pfo : T raqueed^count a 3 7 

H ( *mci >» required count ) 

{ 

found "0; 

while ( arrey.ttartl < array endl ) 

< 

if ( jjf 1 & tempi ) r look at bits defined n fietil bitmap 7 
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* ( ****** ** n»cftjmjd_cDunt ) 

cono* a. 
awnen ( operator ) 

{ 

F1_F2JNT_DIRECT( MISSING_M£DIUM_ VALUE ). 
ERRJNV_SW( searcn_mf _pp_m*aium_f»ia_array ). 



} 

if ( cond ) 
{ 



I s ii: 



10 } 

DTMfc 

) 

) 

NEXT_F!ELD1_BIT 
anay stem** 

} 

} 

brack: 

case two_pur_pnj : r required count is 2 7 

15 case muitiD*_pur_prti : r reoutreo count a 2 •/ 
cast mree jxjrjma : r reouredlcoum b 3 •/ 

if ( "md >» ragmrod count J 

{ 



for ( founct=0 : erray_starM < array_enoi ; array_startl ) 



'0: 

iwrtcn ( operator ) 

{ 

20 Fl_F2jNT_JjnjTEMPlf MISSING MEDIUM VALUE } 

} ERRJNV_SW< searcn^mf^p^meoiuTn^f^anay ) 

ff(oond) 

( 

found**. 

if ( found >= reouirec count ) 
{ 

7es |= J). 

totai_coum*+ 

2 5 Orea* 

t 
i 

NEXT Fi£uOi B« T 

) 

) 

orea*: 
case iast_pur_prc 

if ( array_start1 < erray_er»di ) 

30 jor ( «0=1 . ma < -mci . mo** ) r mon to gat to last pur rec m,s customer •/ 

array start*** 
NEXf>l£LDl BIT. 

} 

wrti*a( mo- > 0 ) 

{ 

if ( iff 1 & tempi ) r took at last oefmed Pit 7 

3 5 cono = 0. 

awitcn { operator ) 
{ 

F1_F2JNT_DIRECT(M!SSING_MEDIUM VALUE ) 
j EKR JNV_SV\fl searcn_mf j3p_maowmjia"td_arTay ). 

if ( cono ) 

( 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



297 



PCT/US94/12074 



15 



Ves |= » 
total count** 

) 

break. 

) 

PREV_F!ELDl_BIT. 
~ -erray^starn . 

* ) 

J 

break: 
case ffii_pur_prd : 
if ( *md >= 2 ) 
{ 

defined = 0. 

for { mo=1; tnd < tnd ; mo** ) r md=l to get to last pur rec mis customer 7 
{ 

10 array starn**. 

NEXT_FIELD1 BfT. 

) 

white ( in a- > o ) 
{ 

ff ( ijf 1 & tempi ) r look at last defined bit •/ 
{ 

defined**. 

if ( defined == 2 ) r looking at next to last record •/ 

cond = 0 

switcn { operator ) 
I 

n_F2JNT_DlRECTf MISSING_MED!UM_VAIUE J. 
^ ERRJNV_SW( searen_mf j)p_meoium_field.array ); 

ff ( cona ) 

I 

*res != u 
total count**. 
) 

break. 

) 

} 

PREV_F1ELD1_BIT. 
-array start 1. " 

) 

*> 

oroa* 

case iast2_pur_pro r reouirea_ count ts 2 7 

case iast5_pur_prd r recwec~count is 5 "/ 

r mam.no as found if at feast 1 of theTas: 2 (or 5) pur_pro recoros mis customer meets cntena 7 
if ( "mcl »= reouired count j 

{ 

defined = 0. 

for ( no«1. tnd < *md . mo** ) r mo=1 to get to last pur rec this customer •/ 

array start 1*-* 
3 0 NEXT_F!ELD1 BIT. 

) 

wniie ( mo- > 0 ) 

{ 

if ( yf 1 & tempi ) r look at last defined bit 7 
{ 

defmeo**. 

cond = 0. 

swrtch ( operator ) 

35 { 

F1_F2_INT_DIRECTf M1SSING_MEDIUM_ VALUE ); 
ERR_lNV_SW( searen_mf_pp_me<iium_fieid_«rray ); 
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if { cond ) 
( 

totai^couni**. 
break; 

) 

5 if ( defined >= reaured count ) r have tooted at last 2 (or 5) records V 

{ 

break. 

} 

) 

PREV_FlELDl_Brr. 
-array start 1. 

) 

) 

io break: 

w case evg_pur_pra r not supporting tor fieto compansons 7 

case totai_pur_prd : 
enror_nanoier (INVAUD_SVVVrCH_VALUE. ERROR, pp.operi. 

"pp^open <avg or total) m searm.mf^mecuum ,*iu array-) 
break: 7 

) 

} 

else 

- - exciuoe<J_recoros*-». 
A D rf ( !suoJlag|| i) & temp ) 
array_stan«"* 



} 

for( . array start! < array enov arTay start i** ) 

( ■ 

NEXT.FIELO^BIT 

20 NEXT FIELD BIT. 

} 

) 

eise 

it | map count && 'map count t 1 r first (array s:am is purcnase or pro o jr. rna array start i ts c_s o a sjp •/ 

{ 

me-. " so ts: mc*» win use !st aaia nem 

lor ( i=0. Knumjans • .= 

■ 

array_end = array_sian * *mc 
if ( "tempi && uti ) 

( 

rf ( -mc) 
{ 

switcn ( pp oper ) 
{ 

case pur_prd_domain : 
case 8ny_pur_prd : 

3 0 for ( . array start < array end; array stan** ) 

( 

cond = 0. 

switcn ( operator ) 

( 

F1_F2JNT_JJ_TEMP( MISSING_MEDIUM_VALUE ). 
ERR INV SW( searcn mf _pp medium field array ), 

} 

if ( cond ) 

{ 

Tea I s ii; 
total count*-*; 

) 



35 
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next field err. 

) 



case firsi_pur_prd : 
5 wnite < array start < array ena ) 

{ 

rf ( it & nemp ) r look at 1st defined oit m field bitmap •/ 

{ 

oond bO; 

switcn ( operator ) 

{ 

F1_F2JNT_DIRECT{ MISSING_MED!UM_VALUE \: 
ERR INV SW( searcn mf_pp medium field array J. 

10 rf(cond) 

{ 

*res |» j). 
total count**; 

) 

break; 

) 

NEXT_FIELD_BIT; 
array start**; 

} 

break; 

case second _pur _prd : r required, eount is 2 •/ 
case third _pur _pro : r reQuired_count is 3 7 

if ( *mc >= required count ) 

{ 

found = 0; 

while ( array start < array end ) 
{ 

if ( ij & "temp ) r loon at bus defined in field bitmap */ 

20 { 

found**. 

rf ( found « required count ) 

{ 

cono * 0 

switcn ( operator ) 

{ 

Fl_F?JWT_OlRECTf M!SSING_MEDIUM_VALUE ) 
ER~RJNV_SW{ searen_mt _pp_meaium_fieta_Brray ) 



15 



^ 3 rl j cone i 



•res I* u 
total count** 



} 

Groan 

} 

) 

NEXT_FIELD_BIT 
2 q array_stan** 

) 

break. 

r note at ourcnase/proouct tevet two _pur_pro muntpte_pur _pra different togic tna 
three_pur_pro V 
case two _pur_pra 
case muRiDto _pur_pro * 
rf(*mc >= 2 ) 

{ 

35 r creating purcnase level bitmap, mark ail mat ouairfy •/ 

for ( founo=0 : array start * array end. arrey_sian** ) 

{ 
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cond - 0. 
switch ( operator ) 

{ 

F1_F2JNT_JJJTEMP( MISSING_MEDIUM_ VALUE ). 
ERR 1NV SW( searcn mi _pp meoium fietd_array ). 

} 

rf ( cond ) 

{ 

founo— . 
it ( founo == 1 ) 

{ 

sav_res = res. 
sav^jj = J, 

} 

else 
if ( found == 2 ) 

{ 

•sav_res |= savjj. 
totai_eount*» 

•res 7 s U. 
total count** 

) 

else 

15 rf(founo>2) 

( 

'res (s ij 
total couni**. 

) 

) 

NEXT_FIELD BIT. 

) 

} 

break: 

2 0 case mre»_pur_prd : r here creating purchase/prod map different than two_pur _prd case •/ 

tf ( *mc >« 3 ) 

( 

r creating purchase level Oitmao mark ail that Qualify •/ 
tor ( tounosO . array sian < array eno array stan** ) 

( " \ 

cond = 0. 

switch ( ooeraror ; 

{ 

25 Fl_F2jN~_-J_7EMPf M!$3ING_MEDIUM_VALUE *. 

ERR INV SW[ searcn mf_pp_meoium field array ). 

} 

if (cond) 
{ 

found** 

if { found *» i ; 

{ 

sav_res = res 
savj = n 

) 

eise 

rf ( found == 2 ) 
( 

$av_re$1 * res. 
sav = u. 

) 

else 

rf ( found == 3 ) 
35 ( 

•sav_res [= savj; 
•severest |= sav 
•res |» U. 
total count ♦= 3: 



30 



SUBSTITUTE SHEET (RULE 26) 



WO 95/1 1487 



301 



PCT/US94/12074 



15 



> 

else 

if(founo>3) 
< 

Tes |* ij: 

5 total count**; 

) 

) 

NEXT FIELD BIT; 

) 

} - 
break: 
case iast_pur_prd : 
rf ( array.stan < array_end ) 

^ 0 Jor ( inc*1 : mo < *mc: mo— ) r md=1 to get to last pur rec this customer 7 

array stan**. 
NEXT.FIELD BIT. 

) 

wniie ( md— > 0 ) 

{ 

if ( U & nemo ) r loo* at last oefmed on 7 

{ 

cons = C 

sw fieri { operator ) 
I 

F i_F2jNTT_DIRECTf MIS SING JWEDlUM_VALUE ). 
^ ERRjNV_SW( $earcn_mf_pp_meoiurnjieio^aiTay ). 

if ( cono ) 
( 

tota? count** 

20 ) 

txea* 

} 

PREV_HELD_BtT 
-array s:aa 

) 

) . 
oreak. 

case n!i_puTjors 

ff { *mc >=~: » 

oefmeo = C 

for { mo*i mo < "m: mo** j r ,no=1 to get to last our rec tms customer 7 

array^sta^** 
NEXT FIELD BIT 

} 

wniie ( mo— > 0 ) 
{ 

30 rf t i * nem P ) r 'oo^ at last oefmeo Oit •/ 

{ 

oefmeo** 

rf ( oefmeo == 2 ) r looKmg at next to last recoro 7 

cono = 0 

swucn ( ooerator ) 

{ 

F1 _F2JNT_DIRECT< MISSlNG_MEDIUM_ VALUE ). 
_ c E RR JNV_SW( searcn_mf_pp meoium fieio array J 

if ( cono ) 
( 

*re» |= ij : 
total_couni**: 
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PKEV_FlELD_BrT; 

""•^y^itaa ~ 

) 

) 

5 ^nKmrred.count«2 7 

»• wro jwrj>ftj . /• wouired count a s •/ 

r marking as found if at least 1 of tneWVw 1 

r mmb purmasa *eve* map, ^ o, £ m " l » * 
( fnc >« mquirea^count ) 0010 0T last 2 (or 5) recoros rf botn qualify •/ 

oafmoo = 0' 

■fray stan** 
10 NEXf FIELD BIT. 

) 

white ( ind- > o ) 
{ 

»(B*nemp, '•tool.attandrtnwjbrt-/ 

defined**: 

oono « 0; 

**ntch ( operator ) 

15 { 



- *«arcn_mf_pp_meoium_f»aio^array ). 



if ( cond ) 

{ 

Yes |« 0. 
total couni** 

) 

20 f ' deftf>e0 >= > ^ ,oo*ed a: te 2 (or 5) recorOS , 

orea*. 

} 

) 

PREV_F!ELD_BrT. 
--array sian 

} 
) 

brea*. 

case avc_pur_prs - not sjorcntng for field ccmoartsons ".' 

2 5 case toiai_pu'_pra 

"PP. 



error_nanoier HNVALID_SW!TCH_ VALUE. ERROR, pp open. 
»_operl (avo or total) m saarcn_mf_j5p_meoiiim^fiaia_array"*). 
Dreait. 



) 

} 

else 

excluded records**: 

) 

for ( ; array start < array ena. array start ) 
{ 

NEXT_FIELD BIT. 

) 

NEXT_FIELDl_BfT, 
if ( »suD_fiag H & ^amp1 ) 
array startle, 

} 
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) 

0130 

f m« ^I?-? ^ 001 00,09 any many 10 man y mu «' '*> «•« companions cases 7 
if ( map_coun: && map count! && 'map couni2 ) r bom f*,rp* a «rL 
5 .{ - u ' r Dom Purcnaie or procuc. no purcnase to product V 

r purchase to purchase ana product to product woulo go here •/ 
eise 

r now oo aoove for case of 2 mao counts •/ 

r Durcnase to preaua ano proouct to purchase cases wouio go here •/ 
retum(tota^count): 

) 

^ntwil to SBarcn.mf^targe.fwW.array except array_stah .no array stem 

« ^Soi 1 Hopr^r E r ^ ~- ~~ — - — 

nt Man=n^mf^ P-S rK>n_f« B »a^ a rrByt»rrBy_sta^ 

jnout^bitmBD.mouT^OrtmaDl. results bitmap. 
15 ma P_countmap_countt.maD coum2. 

unsigned char -array.stan. PP.oper_cpae.pp^ope^cooel .suo.nag) 

unsigned cnar •arrey~stan 1 
enum fieJd_operator operator 
strua bitmap *tnput_onmap: 
struct bitmap *mput_bitmapi. 
struct bitmap *rasuits_ojTmao. 
unsigned snort "mapjcount. 
unsigned snort •map'eounti, 
2 q unsigned short *map"count2. 
unsigned mt pp_oper_cooe. 
unsigned sit PP_oper_cooel; 
p supjlag; 

unsigned char •array^end: 
unsigned cnar •array~end1 
MUITI_F!L£_PUR PRO VARS 



25 



MUITI_FILE_PUR_PRD_ PRELIMS. 

temp = mput^brtmap->stan. 
tempt e tnput_bitmapi->start 

res « results_bitmap->stan. 

num_brts » resurts_bftmap->number_of_bits; 

Wc = BfTMAPjNTEGER_SIZE. 

# 1 B 1: r f 1 rt^s are associated with fteldl •/ 

WcM = BrTMAPjNTEGER_SlZE; ' 

if ( !map_count ) T cus or sub case, no map counts for i st field •/ 

•tor ( i*0; i<num bits: i++ ) 
I 

array_endl « array^stam ♦ •mcl; 
if ( temp && y ) 

{ 

35 if (fuel) 

{ 

switch ( pp_operl ) 

{ 
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case Dur_prd_domatn 
case eny_pur_prd • 
lor ( ; array stam < array endl: array_stam*+ ) 

{ 

cond = 0. 

switcn ( ooerator ) 

5 { 

Fl_F2jrrrjjFl_TEMPK M!SSlNG_SHORT_VALUE ). 
ERR INV SW( searcn mfj)p_snon Jieio_array ). 

) 

if ( cond ) 
( 

•res |* i). 

totat_coum«~; 

bra**. 

10 } 

NEXT_F!ELDl BIT. 

) 

break: 
case first_pur_prd : 
while < array start 1 < array endl ) 

{ 

if ( jjf 1 & tempi ) r loon at 1st defined bit in field 1 bitmao •/ 

{ 

cond « 0 

15 switcn ( ooerator ) 

( 

F1_F2JNT_DlRECT( MISSING_SHORT_VAlUE ). 
ERR INV SW( searcn mf_pp snon field array ). 

) - 
rf (cond) 

{ 

•res i= u 
tota* count** 

Ore ax, 

) 

NEXT_F«SLDl_Brr. 
array_s:arti** 

) 

break. 

m 

case secono_pur_pra r reouireo_eount is 2 */ 
case tniro^pur^prd r reQuireo^count is 3 V 

rf ( *mc1 >= reouirec count ) 

{ 

found ■ 0 

while l array stani < array endl ) 

{ 

rf ( jjf 1 & "tempi ) r iook at ous oefmed m field 1 bitmao ■/ 

t 

touno** 



20 



30 



} 

tf ( cond ) 
{ 

■res 

total count**; 

35 ) 

break. 

) 



rf ( founo == reouirea count ) 
{ 

cond = 0 

switcn ( ooerator ) 
( 

F1_P2_WT_DIRECT( MISSING SHORT VALUE) 
ERRJNV_SW( searcn^mf j,p^$non^fieidlarray ). ' 
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) 

NEXT.FIELD1.Brr. 
an*y_stam~; 

} 

) 

break: 

case two_pur_pra : r required count is 2 7 

5 »*• muiUDie_pur_pn3 : r reQutreo count is 2 •/ 
case tnree_pur_pro : r reoutreo count is 3 7 

if ( *mci >» required count ) 
{ 

for ( founo=0 ; array_start1 < array endl; array stani** ) 
{ " " 

cond * 0. 
switch ( operator ) 

( 

F1_F2JNT_JJF1_TEMP1( MISSING.SHORTVALUE ). 
10 ^ ERRJNV_SW( saarcn_mf^p_sriortJfieio_arTay ). 

rf ( cond ) 
( 

foune** 

if ( found > s required count ) 
{ 

•res 1= jj 
totai_count**. 
breaK 

) 
} 

NEXT FIEL01 BIT 

} 

) 

break: 
case iast_pur_prd : 

if ( array start 1 < array endl ) 
{ 

2 n for ( md=l; mi < "mci md** ) r ind=i to get to last pur rec mis customer 7 

array stam**. 
NEXT FIELD1 BIT. 

) 

wmie ( md— > 0 ) 

< 

rf ( jjt 1 & tempi ) r took at last defined bit 7 
{ 

send = 0 

Z 5 switcn i operator ) 

{ 

F<_F2JNT_DIRECT{ MlSSING_SHOR T _VALUE >. 
ERR INV SWf searcn mf_pp snon field array ). 

) ' 
rf ( cond ) 

{ 

•res |= jj 
tota!_count**. 

30 } 

Drea». 

} 

PREV_P|ELC_3.T 
-array s;a*v 

) 

) 

break, 
case nu_pu r _pro 
if ( *mci >= 2 ) 

35 I 

defined = 0. 

tor ( inosl: md < •md: ind~ ) r mc*1 to get to last pur rec this customer 7 

array_stam** 
NEXT FIELD1 BIT. 
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wftiie ( mo- > 0 ) 

{ 

if ( jjM & "tempi ) r took at last defined bit •/ 
( 

defined**: 

if ( defmeo = 2 ) r looking at next to last record V 

{ 

cond = 0: 

switcn ( operator ) 

< 

F1_F2JNT_D1RECT( MISSiNG.SHORTVALUE ): 
ERR JNV_SVV( searen mf_pp snort_fieia array ), 

} 



20 



30 



•res |« d. 
total count**; 



10 

if ( 
( 

) 

break. 

) 

) 

PREV_F!ELD1.BIT, 
15 -array stani; 

} 

} 

break: 

case iast2_pur_prd : r reoutred_ count is 2 V 
ease last5_pur_prd : r r©outrec_ count is 5 •/ 

T marking as found if at teast 1 of tne last 2 tor 5) pur _prd records mis customer meets cntena V 

if ( •mcl >= reouirec_count ) 

( 

defined = 0. 

for ( md«l ; md < *mcl . ind** ) r mo=1 to get to last pur roc tn«s customer V 
{ 

array startl**. 
NEXT F1EL01.BIT. 

) 

wniie ( rK>- > 0 ) 
{ 

if ( nfi & "te-riD* 1 " >oo» at ias: defined o*t V 
[ 

25 Ct'iner— 

cono = 0 

iwrtcn ( operator ) 

{ 

F1_F2JNT_DIRECT{ MtSSlNG_SHORT_ VALUE ). 
ERR INV SW( searcn_mt^p_snon_fteid_arTay ). 

) 

if ( cond ) 
{ 

•res fa a 

ioiat_counK*. 

Dream. 

rf { defined >= reouired_count ) f nave ioo*eo at last 2 (or 5) records */ 

{ 

prean. 

) 



) 

PREV_FlEtDl_BIT. 
2g -array_sianv 
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) 

break; 

case avg_pur_prc r not suoponmg lor f*io comparisons 7 

case totai_pur_prd 

error_nano»er ( INVAL ID. SWITCH^ VALUE. ERROR. PP_OD«ri 
"pp_operl (avg or total) in searen_mf _pp_snonj»eia array "J. 
=> break. 

} 

) 

else 

exciuoed_recorcs*-*. 
if ( !suD_nag ]| u & lemp ) 
array start**, 

} 

mcl**; 

]_ q for ( : array_startt < array.enoi : arcay^stan i ** ) 

NEXT FIELOl BIT. 

J 

NEXT_F!ELD BIT. 

) 

) 

eise 

jf ( map.count && !map_countl ) r first Urfay.start) is purcnase or product 2nd arTay_stam ) »s cajs or sup ' 

~ 5 mc ~: r so 1 st mc** will use 1 st data item •/ 

tor ( i=0; i<num Dits. » *= *mc ) 

< 

array_eno = array_stan * "mc; 
if { tempi && n1 1 ) 

< 

tf ( *mc ) 
< 

2 0 switcn ( pp_oper ) 

case our_prd_domam 
case any_pur_jjrd 

lor { . array_stirt < array_end. array_stan** ) 

conn » 0. 

switcn { operator ) 

{ 

F1_F2_INT_JJ_TEMP( MISSlNG_SHORT_ VALUE ). 
- - ^ ERRJNV_SW( searcr:_m1_pp_ snort Jieiojarray ). 

if { cond ) 
{ 

•res |= u. 
tola t_ count***. 

^ NEXT_FiELD.err. } 

break: 

2 o cas« firsi _pur_pra ■ 

wniie ( arr»y_stan < array_end j 

jf ( | * lamp ) r toon an s, 0e f,ned bit m field brtmao V ' 

cond = 0. 
•wrtcn ( operator ) 
( 

ERR^e:S RECTf M,SS,N G.SHORT VALUE ) 

if(cond) 
( 

Tes |= i|; 

totai_eount*-* 
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) 

break. 

) 

NEXT_F!ELO^BIT. 
j ■rasLStan**" 

5 breaK: 

f!" : r recused count is 2 7 

^w- PUrJ>m: rreoureo count is 3 7 

( ™c >= required count ) 

( 

found = 0. 

wnue < array_stan < array_end ) 

if ( jj 4 "Temp ) r look at bits defined field bitmap •/ 

10 founds; 

if ( founo as recurred count ) 
{ 

cono s 0: 
swrtcn ( operator ) 

{ 

^2JNT_DIRECT( MISSING SHORT VALUE ) 
} ERR_INV_SW< searcn^mt^snon.fieidlarray ). " 

rf(cond) 

•res f*u 
total count** 

) 

break. 

} 

} 

NEXT_FIELD_BIT 
array_stan** 

20 } * 

break: 

iSSSSS" m,ee - pur - prc Mse wne " * ea,m = — « 

case mufiiDie_pur_pra 
rf ( *mc>= 2 ) 

r creating purcnase *eve> oitmao mar* an mat oualrtv V 
7 z J 0r ' fOuno=0 «n-a y- «an « arra^enc array_sian.. i 

cono s 0 

swrtcn ( operator ) 

{ 

ERRJNV.SW. searcT_m!_pp_ $nonJ>ela _ afTay y 

if { cond ) 

{ 

^ q founo ♦* 

rf ( founc == i > 

{ 

sav^res = res 
sav_j sjj 

) 

else 

rf ( founo == 2 ) 

{ 

•sav_res |= savjj. 
35 totai_coum** 

•resT« u. 
total count**. 
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} 

break 



) 

else 

if ( found > 2 ) 
{ 

fas t= jj; 
total count**. 

} 

) 

NEXT_FIELD BIT. 

) 



r different logic than two and muit»ple_pur .pro case when creating purcnase oiimap V 
case mree_pur_prd : 
if(Tnc>=3) 



r creating purcnase level bitmap, mane all that Qualify V 
for { founo =0 ; array^stan < array_enc; array_stan** ) 

oono = 0; 

switch ( operator ) 

{ 

F1_F2JNT_JJ_TEMP( MlSSfNG.SHORT VALUE ); 
ERRJNV_SW( searcn_mf^p_smm_fielcjarray ); 

) 

XD if(cond) 
{ 

found**. 

if ( founo == l ) 

{ 

sav_res = res: 

) 

else 

20 rf ( found == 2 ) 

sav_res1 = res; 
sav J|1 ejj; 

) 

etse 

if ( founo == 3 ) 
{ 

*sav_res |« savjj; 
•sav_res1 (= savjjl; 

2 5 *res |= u. 

total count ♦= 3; 

} 

else 

if ( found > 3 ) 

{ 

•res 

total count**: 

) 

3 0 NEXT_FIEID BIT. 

> 

) 

break: 
case iast_pur_prd 

rf ( array_stan < array_end ) 

for ( mo= V md < *mc. mo** ) r md=1 to get to last pur rec this customer •/ 

35 { 

array start**: 
NEXT_FlELD_BlT, 
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) 

{ r >«* at last defined bit •/ 

CO/Wr o. 

witen ( operator ) 
{ 

5 F LF2JNT_DIRECT< MISSING SHORT VALUE ) 

^ ERR_INV_SW( searcn_mf _pp^snonjieio_array ) ' 

if ( cond ) 

{ 

•res 

total count** 

} 

break. 

10 PREV_FiELD_Brr 

-array stan 

) 

} 

Break, 
case ntt_pur _pra 
rf ( 'mc >= 2 } 
( 

defined = 0. 

15 J° f ( 1,1051 : ,na * " mc - ,no " > r «■ 1 to 9et to last our rec this customer •/ 

array stan** 
NEXT.FIELO BIT 

} 

white ( mo- > 0 \ 

i 

( u I temp ) r loo* at last oefmea oit •/ 



defined** 

a 

{ 



20 «f < defined « 2 ) r looking at next to last record 7 



2 ^ 



cond s o. 

switcn ( operator ) 

{ 

F1_F2_INT_DIRECT( MI$$lNG_SHORT VALUE ) 
j ERR^iNV^SWt searen^mf_pp_shonjieid_array ). 

!f ; core \ 
{ 

Ves |= u. 
total count** 

> 



30 } ) 



35 



break. 

) 

} 

PREV_FIELD_BIT; 
-«rray_si3rt 



break. 

^u, S ,1-T- Pf ° : count,, 2'/ 

r marmng as found if at least 1 of trw* i»t o * ^. 

J ( Tnc „ reou.reo_count , "* b0,h °' U,sl 2 ,of 5 » rocor °s * Ootn oualrty •/ 
defined sO; 

•or ( m.1 : M < -mc; mh , r m-i « 0 0 e. to ia» our fee m„ customer •/ 
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afr»y_staft+*: 
NEXT^PIELD BIT, 

) 

white ( mo- > 0 ) 
( 

jf(ij*n*mp) r loc* at last defined on 7 

defined** 
cond a o 

switch { operator ) 
{ 

!k F2jNT - 0,R£CTf M| SSING SHORT VALUE ) 

if ( cond ) 

( 

total count** 

) 

rf < defined - reguireo.count , r have looxeo at last 2 (or 5) records V 

break 

} 

} 

PREV^riELD.Brr. 

1 e; --array stan. " 

XD ) 

) 

brea*. 

case avg_pur_pra r not supporting tor f.etd comoansons V 

case totai ^pur^prd 

error_nano»er (INVALID, SWITCH. VALUE ERROR pp open 
pp_operi (avgoMo:ai)insearcn_m!_pc snort f.eio array") 
prea*. 

20 3 

else 

excluded records** 
) " 
for ( ; array_ start < array eno. array sun** ) 
{ " 

NEXT^FIELD BIT. 

) 

NEXT_?IELDt_B;7 
rf { »suo_nag || jjf l & -tempi i 
array_stanv 



) 



} 

eise 

r as of July 93. we are not doing any many to many multifile field comoansions cases V 

if ( map_count && map_countt && !map_count2 ) r born purcnase or product, no purcnase to oroouct 7 

i 

3 0 r Purcnase to purcnase and oroduct to product would go here. */ 

) 

eise 

r now ao aoove for case of 2 mao counts 7 
( 

T purchase to product and product to purchase cases would go nere 7 

) 



return! total_count). 



35 



) 
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m tmvxn mf op stnng_fi©»d array* array startarray_starM . operator, length. 

fc ~ " " ^put^ortmap.tnput^oitmaoi.resuni^Dttmap. 

map.count map.count 1 .map_count2. 
Pp_opef_coda.pp_oper_eooe1 .suo.flag) 
unsigned cner •array.start 
unsigned cnar •afray_start1 : 
5 enum field_operator operator, 
int length; 

struct bitmap •mput.bitmap; 
struct bitmap *mput_bitmapl; 
struct bitmap *resuits_brtmep; 
unsigned snort *map.count; 
unsigned snort *map.count 1 : 
unsigned snort *map.CDunt2; 
unsigned mt pp.oper.cooe: 
- q unsigned mt pp.oper.cooe 1 ; 
rrt sub flag, 
{ 

unsigned char •array.end: 
unsigned cnar •array.endl; 
unsigned mt miss_stnng_len. 



15 



MULTl.FlLE.PUR.PRD.PRELIMS. 

miss stnng ten = length: 
if { (»=suien(MISSING.STRING.VALUE)) < length ) 
miss.strmgjen « i; 

temp = mput_brtmap->start: 
tempi = input_brtmapi->start; 

res = rasutts.bitmap->start: 
2 0 num.brts = resu!ts_bitmap->numoer_of.bits: 
j*V. 

kk s BfTMAPJNTEGER.SlZE. 

jjfl * 1; r fl items are associated with fieldl •/ 

Wrti = BtTMAP.lNTEGER.Sl2E. 

if ( tmap.countl r cus or sub case, no mao counts for i st fiaic •/ 

{ 

for ( i=0 icnum bits. »** } 
05 { 

8rray.endl = array.startl ♦ t • length ). 
if ( temp && u ) 

{ 

if ( Vncl ) 
{ 

switch ( pp ooeri ) 
{ 

case Dur_pro_oomain 
case any jjur _prd * 

30 for { . array start! < array.endl: array.startl ♦« length ) 

{ 

cond = 0. 

switch ( operator ) 

{ 



F 1.F2.STRING.JJF1.TEMP1 . 
ERRJNV.STRlNG.SW< seaiw_mf.pp.string_fieia.array ). 



35 



if ( cond ) 
{ 

•res |= j: 
totai.ccunt^. 

break, 

) 
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15 



25 



NEXTFIEID1 BIT 
} " ' 

break; 

case first _pur_pro 
white < array_stani < array_endl ) 



« ( jfl & tempi ) r look at 1st Defined bit m fieidl bitmap 7 



cond = 0: 
switch ( operator ) 



{ 



F1_F2_STRING DIRECT. 

ERRJNV_STRiNG_SW( searcnjnf^p_ $ !ringj,eid_ array ). 



) 



total_count** 



) 



break; 



NEXT^FIELOl^BrT; 
^ array_stani length: 

break; 

t??" 0 ^-^ : r r «^ired count is 2 7 
case tW jhtjw : r reQ u recount is 3 •/ 

' mci >= required_count ) 



{ 



found = 0; 

while ( array^stam < array_endi ) 



« ( llfl & tempi, r took at brts oefmed m fieidl ctmap V 



founo**; 

f ( <ouno == required_count , 



( 



cond «0; 
switch ( operator , 



{ 



F1 -F?_STRING DIRECT 

ERRJNV_STRING_SW 

I 5earcn_mf_p P _si rin gj ie , d arTay ) 



totaf_count< 



30 



35 



) 



) 



NEXT_FIEID1_BIT; 
array^suai ♦= length; 

) 

) 

orea*. 

case rwo_pur_prd r reouireo count is 2 7 

case muinpie_pur _prd : r required count is 2 7 
case tnree_pur_pro r required count is 3 7 

rf ( *mcl >= reouired_ count ) 



{ 



for ( founoro : array.stam < array.endl; array.startt ♦= tenQtn , 



cond = 0; 

switch ( operator ) 

{ 
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F1_F2_STRING_JJF1_TEMP1 

ERRJNV_STRING_SW( sean^_mf_pp_sinng_fieio_array ) 

if ( cond ) 
( 

founds. 

if ( founo >= required count ) 
{ 

Tes |c jj; 
totai_eouni**, 
braaK; 

) 

) 

NEXT FIELD1 BIT. 

) 

} 

break: 
case iast_pur_prd : 

rf ( array siartl < array endi ) 
{ 

for ( md*1; md < "md: md** ) r mo=l to get to last our rec this customer 7 

array startl *= length: 
NEXT.FIELD1 BIT: 

) 

while { md- > 0 ) 

( 

if ( jjf 1 & "tempi ) r iook at last oefmeo Pit •/ 

{ 

cond = 0. 

switch ( operator ) 

{ 

n _ F 2_STRlNG_DIRECT 

2 0 ERR JNV_STRING_SW( searcn_mf_co_stnn3 J.efd^array ), 

if ( cond ) 

{ 

Ves |= y. 
totai count** 

) . 
Preak 



30 



35 



PRSV_F1ELD*_S"" 



) 
) 

preak: 
case nti_pur_prd 
ff ( "met >o 2 ) 

{ 

defined = 0. 

tor ( md*t. md < •met . md»* ) r md=t to get to last pur rec this customer •/ 

array stam ♦= lengtn 
NEXT_HEID1 BIT. 

) 

while ( md- > 0 ) 

{ 

rf ( 1 & tempt ) r look at last defined bit 7 
defined**: 

if ( defined == 2 ) r looking at next to last record 7 

cond s 0: 

•witch ( operator ) 
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{ 

F 1_F2_STRJNG_DIRECT 

j ERRJNV_STRING_SWI searcn_mf _jjp_stnngJielo_array j. 

4 (cond) 
{ 

*rw f = if: 
5 totai_count**; 

) 

break: 

) 

} 

PREV_F!ELD1_BIT; 
^ array_stam — length. 

} 

break: 

10 case tast2_pur_prd : r reomred^count a 2 •/ 
case Iast5j>ur_pra : r r*autred~eount is 5 7 
r rnammg as found if at least 1 of the last 2 (or 5) purjjm recoros this customer meets cntena 7 
if ( Tnd >« requirad_count ) 

defined = 0; 

for ( mo=i ; md < *md : md~ ) r mo*i to get to last pur rec this customer 7 

array_startl ♦= lengm; 
ic NEXT_F1ELD1 BIT. 

" } 

wniie ( mo- > 0 ) 

{ 

if ( fif 1 & tempi ) r look at last defined bit 7 
{ 

defined**; 

cond = 0; 

switch ( operator ) 

{ 

2 0 Fl_F2_STRWG .DIRECT. 

ERRJNV_STRING_SW( searcn_mf^p_stnrtgjield_array ) 

ff ( cond ) 

i 

*res |s ii; 

totai.count** 

break; 

} 

- ' ' cef ^ec > - '-cuif ed_ cojni ) r have loowea a: :ar. 2 tor 5) recoros 7 

* D { 

break; 

) 

} 

PREV_FlElDl_Brr 
array stani -= length. 

) 

} 

break. 

3 q case avg_pur_prd r not supporting for field compansons 7 

case toiai_pur_prd : 

error.handler (INVAUD_SW!TCH_ VALUE. ERROR, pp oper 1 
M pp_oper1 (avg or total) m search mf_pp strmg fieio array") 

break. 
) 

) 

eise 

exciuaed_recorcs'** 
35 if ( »suo Jiag j| u & nemp ) 
array stan** 

} 

mei«~ 
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for ( ; array^ftam < array.endl. array_*tam length ) 
NEXT^FlELOi_BfT. 



} 

NEXT.FIELO BIT; 

} 

} 

5 »tee 

! ' " !maP ^ C ° Unn » ^ f - <™'-™> * P— or proou*. 2nd .array. «am ) . cus « suo V 

fnr C 7;-n '"Mitt mc~ Will US6 1 St 0313 Hem V 

for ( i.O: >«num_b«s. i += -mc ) 



array_end c array_stan ♦ { Tnc • length ) 



10 ^ rf(Tnc) 
{ 



switch ( pp_oper ) 

case our jjfo^oomam 
case any_pur_pro 
jor ( . array.,,,* < array.eno array.sian * ngm ) 

cono = 0 



15 switch ( operator j 

{ 



F 1-F2_STRING_JJ TEMP 



20 



30 



35 



) 



*res |* u: 
totai_count*r 



NEXT^FIELD.Brr, 

) 

break: 
case fir3t_pur_prtJ : 
while ( array^stari < array_end ) 



( 



it { ii & *lemp ) 

{ 

cono = 0. 

switch ( operator ) 

{ 



r look ai 1st oeftneo on m fieio bftmao V 



tf( 
{ 



) 



) 



fes |» jr. 
total count**, 

) 

break: 

) 

NEXT_FIELD_BtT 
array_sian ♦= lengtn, 



break: 
case secono_our_prd . 
case injro_pur_prc 

rf ( *mc >= required count ) 

( 



F1_F2_STRING_DIRECT 

ERRJNV_STRING_SW( searcn_mf_pp_string_fieia_array ). 



r reoutred_ count is 2 •/ 
r reoutred.count is 3 "/ 
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founo *0: 



10 



15 



20 



25 



30 



35 



founo 

* ( found == requireo^count ) 



f 



cond = o. 

swftcn ( operator ) 



) 



rf(cond) 

{ 

total counts 

j 

break. 



F1_F2_STRING DIRECT 

£RR.INV.STRIN6_SW( -KO.mfjp.^.f^ ^ , 
} 



} 



} 

next_field_bit. 

array_stan ♦=~lengtn: 



break; 

cate two_p U r _pro • r a,a,m9 Purcftas9 «wmao. two ano muttwte are drfte™. , 
caae m un »i. . MetMt *** ,nan ^ee •/ 

it ( *mc >= 2 ) 



{ 



cond = 0, 
switch ( operator ) 
{ 



if ( cono ) 

( 

found**; 
( found as i ) 

{ 

sav^res = res. 
else 

rf ( founo == 2 ) 
{ 

*sav_r»s f= sav jj. 

totai_ count 
"res ♦= u. 
total count** 

> 

else 

( founo > 2 ) 

{ 

totai_count** 



F LUSTRING J J TEMP 

EAR JW STRING. BRRjNvjTRiNG SW( seartn n* 

} - ( - arCn - m ^P-«tnn9.rie^arra y 



} 



) 



) 



NBCT/IElDBrT; 
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15 



20 



easa trvM_pur_prtj 
iff *me»B3 ) 



r crang purow tm*,. two *na mumwe M dmerwlt ^ ^ ^ 



{ 



C, C ^" n iS Jrm " a tev " ""W ">■* an that ouahfv •/ 

jor . »ouno=0 ; ^.,«n < anay.C* 1^ , 

cond«0; 

•witch ( operator ) 

{- 



} 

iff 
{ 



) 



found** 

* ( touno «s 1 i 

( 

»*v_res * res. 
etse 

if ( found «s 2 ) 

{ 

sav_resl »res; 
**vji = jj; 

) 

else 

( found as 3 \ 

{ 

•sav_res f* savjj. 
"sabres 1 |= savjjl, 

total count ♦= 3 

} 

else 

* < found > 3 ) 



{ 



>es f= j|; 
total_count**; 



Fl -F2_STRING JJ TEMP- 

ERRJW STR, NG >< saa^ mf _ pp ^ lnns ^ rt>ld ^ r7ay , 



25 



30 



35 



) 



NEXT_FlELD_Bn\ 



) 

break, 
case tast _pur _pro 

if ( array_stan < errey_end > 



for ( m0=1; ,nd < "mc. md~ ) r .nd*! l0 qe t t0 last Dur r.r m 

j w yci 10 jail our r©c this customer 7 



array^stan ♦= length 
NEXT_FIELD_BIT. 



wrnie ( md- > 0 ) 



{ 



« [ Ji 4 temp ) r 100k at tast defined Ort */ 



{ 



co no b 0. 

switch ( operator ) 

( 



) 



F1 _F2_ STRING DIRECT 

errjnv.str.Sg.sw, MKmjnt LPPtfwuhi^ , : 
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if ( cond ) 
{ 

*res|=jj. 
total count**; 

5 ) 

3 break: 

) 

PREV_FIELD_BIT; 

array_start -= length; 

) 

) 

break: 
case nti_pur_prd : 
if ( Tnc >« 2 ) 

10 ( 

defmeo = 0: 

for ( ind*l ; mo < *mc: mo** ) r ino=1 to get to last pur rec mis customer V 
{ 

array_sten *= length: 
NEXT FIELD BIT. 

> 

while ( tno- > 0 ) 
{ 

if ( fi & temp ) r look at last defined bit •/ 

15 { 

defined**; 

if ( oefined == 2 ) r looking at next to last record 7 
{ 

cond o 0; 

switch ( operator } 

{ 

F1 F2 STRING DIRECT; 
ERRJNV_STR1NG_SVV 

rj ( 5«arcn_mT_pp_stnng_iieio_array }. 

) 

if ( cond ) 



{ 

*res| s ij, 
totat count**. 

25 ) 

break: 

) 

) 

PREV FIELD.BIT. 

array_stan -= lengtn. 

) 

) 

break: 

case iast2_pur_prd : r reouired_count is 2 7 
30 case tast5_pur_prd : r reoutreo_count is 5 7 

r marking as found if at least 1 of the last 2 (or 5) pur_pro records this customer meets criteria 7 
r creating purchase level map. mark both of last 2 (or 5) recoros rt both Qualify 7 
if ( Tnc >= required_eount ) 
{ 

defined = 0: 

for ( md=1; md < *mc md** ) T mo=1 to get to last pur rec this customer 7 
{ 

array start ♦» length; 
*e NEXT FIELD.BIT; 

" ) 

while < md- > 0 ) 

* if(il&nemp) r took at last defined bit 7 

{ 

defined**: 

cond & 0: 

switch ( operator ) 

{ 
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F1.F2.STRJNG DIRECT: 

ERR.lNV_STRlNG.SW< searcn.mf _pp.stnng_fieW.amiy , 

) 

«(cond) 
{ 

total. count**; 

) 

if ( defined >= reouiroo count ) r have »oo*ed at last 2 recoros •/ 

{ 

break; 

} 

} 

PREV.FIELD.BrT: 

array Stan -= length. 

10 ) 

} 

breaK. 

case avg.pur.prd r not supporting for field comoansons 7 
case totai.pur.prG : 

error_hand*er (INVALID.SWITCH.VALUE. ERROR, po.oper. 
"pp.oper (avg or toiat) tn searcn_m<^jp"sinng_fie"KJ.array''). 

braaK. 

) 

15 else 

exciuoeo recoros**. 

} 

for { : array.start < array eno: array start ♦= length ) 
( 

NEXT FIELD BIT; 

) 

NEXT.FlELDl.BrT: 
if { •suo.flag [] ijn & tempi ) 
2 q array.stam *= length. 

) 

eise 

, .Hum. , r ocm pursnase or croc..-.. r>= w K .. 

, J Men*. ,o DO ,a» S9 ano Dr0Qua w ^ ^ go ^ 

eise 



2 5 /• now oo aDoye f0f ^ of 2 counts #/ 



35 



{ 

r Purchase to oroouct ano proouct to purees, cas.s wouio go nera y 
returr(toial.count), 



-arrBy^start. PP.opar^cooe.pp^per cooal .sub flao) 

unsigned short •array.starti ; ~ Q) 
•hum fieid.opcrator operator 
«t length; 

*W f.offset. 



rtLoWseti; 
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«ruct twmap •nput_brtmao: 
***** °«map ■wpuTbitmapv 
* tnja fi «^oo Tesuns bitmap 
m»igneo ihon -map "count 
' wuigneo snort *mep~counM 
unsionea snort Tnap"count2 
D "^WW tnt pp_ope7 cooe ' 
«nt pp^epeTcooel; 
j sut>_flag; 

unsigned snort •array end 
unsigned snort *arrey%ndi 

MU LTF_RLE_PUR_PRD_VARS. 
MULTI.FILE.PUR.PRD PREUMS 

temp e mput_b,tmao->starr 
tompi * mput_oamapi.> start: 



res » resuns^bitmap^stan; 

"""-bits = resuns.brtmao.>numoer^bits; 

Wc « BrTMAPjNTEGER SJZE 
15 jf1«i; rM 

if ( Imap^couni") " ' * 

{ ' *s or sub case, no mao count, for ,„ f(ftld v 

for ( tsQ : Knum^brts. ) 

arrey_endi = array_stani ♦ Tn C 1 
rfCtempA&n) 

{ 

20 rff'mci) 

{ 

swucn ( p P open > 

( 

case any _pur_prc 
•or I . array.,,,,, < arraj.enc, arra y .,„ n , , 

ccno s Q 

2 5 swncn { operator ; 



30 



ERR INV STRING SwTsearm ~. 

} - ^awi seafcn - mf ^'$irmg_f,e,o.array J. 



( cono ) 

( 

>es |= u . 

j totai_count*» 
KEXT PIELDl BIT. 

) 

oreaK: 

ise first_pur_prd 

wntie ( array start i < array endl ) 
{ 

if ( uf 1 4 tempi ) r look at 1st oefmed bit in field 1 oumao •/ 

{ 

cond « 0. 
switch ( operator ) 
35 < 



F1_F2_FSTRING_DIRECT. 

ERRJNV_STR!NG_SW( searcnjnfjpjstnng_field_array J; 
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} 

if (eond) 
( 

7es |*d 
total count**. 

} 

5 break. 

NEXT_PIELD1_BIT. 
array start! 

) 

break: . 

case second_pur_prd : r re Quire account is 2 "/ 
case tntro_pur_prd : r requirea_count is 3 7 

if ( *mei >o required count ) 

{ 

10 found = 0. 

while ( array start 1 < array endl ) 
{ 

if ( ijfl & tempi ) r took at bits defined *i fietdl bitmap 7 

{ 

found**: 



if { found == required count) 

15 ( 

cono = 0. 

switch ( operator ) 
( 

F 1 _F2_FSTRING .DIRECT. 

ERR »NV STRING SW( searcn mf^pJstmgJwW.arrBy ). 

) 

if (cond ) 
{ 

•res != jj. 

20 total count**. 

) 

break. 

) 

) 

NEXT_FlELD*_BlT 
army slant**. 

} 

) 

break: 

case twoj3ur_prd : r reouireo_count is 2 7 

case muittoie_pur_prd : r reouired_count is 2 7 
case tnree_pur_prd : r reQuireo_cour.t is 3 7 

if { 7nc1 >» required count ) 

{ 

for ( founo=0 . array start! < array endV array stani** ) 

I " " ~ ' 

cond = 0. 

switcn ( operator ) 

30 { 

F1_F2_FSTRING_JJF1_TEMP1; 

ERR INV STRING Sv7{ searcn m'l_po tstnng_fieia_array ). 

) 

if ( cond ) 
{ 

found**. 

rf { touno >= required count ) 

{ 

toui_couni»*. 



25 



35 



) 
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25 



30 



NEXT.FIELD1 BIT. 

) 

break, 
case iast_pur_prd ; 
if ( array start) < array enoi } 
{ 



for ( mo« V mo < Tnci mo** ) r mo*1 to get to last pur rac m,s customer •/ 

array starti** 
NEXT_FJELDl BfT 

) 

while ( mo— > o ) 
{ 

rf ( 0f1 & tempi ) r look at last oefmed Pit V 
cono = 0 

switcn ( operator ) 

{ 

P1.P2.FSTRING DIRECT 

ERRJNV_STRING_SW( searcn_mf_pc fstnng r.eio array ) 



> 

rf ( cond ) 

{ 

15 totai count 

} 

orea*. 



) 



} 

PREV_FIEID1_BIT. 
-array_siartl 



) 

break, 
case nti_pur_prd 
20 ff ( *mci >= 2 ) 

( 



defined = 0. 

for ( mo= V ma < -mci . mo- ) r ,np* 1 to get to last pur rec tn.s customer. •/ 

array star: 1 ** 
NEXT_FI£LD1 BIT. 

) 

while ( mo- > 0 ) 

{ * 

ff ( flfl & tempi ) r jook at last oefmed Pit •/ 
aeftneo** 

t oeftneo == 2 ) r looKing at next to tast record V 

cono = 0 

swrtcn ( operator ) 
{ 

F1_F2_FSTRING DIRECT 

ERRJNV_STRING_SW( searehmf_pp fstnng field array ) 



(f ( cone ) 

{ 



PreaK; 



) 



tes •= o 
tota;_count**. 



35 



) 
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) 

PREV.FIELDl.BfT. 
-array startl; ~ 

) 

5 ) 
J break; 

case l«st2_pur_prd : r reouireo_count is 2 •/ 

cue iast5_pur_pnj • r recuirec~GOunt ts 5 */ 

T manung as found if at least 1 of tne last 2 ( or 5) pur_pro recoros tnis customer meets cntena •/ 
if { *mc1 >= required count ) 
{ 

deftned - 0: 

tor ( md«1 ; md < *mcl: mo** ) r md=l to get to last pur rec tnis customer •/ 
10 array startl**: 

NExf>i£LDi bit. 

) 

wrule(nd->0) 
{ 

if ( iff 1 & nempl ) r look at last defined bit •/ 

( 

defined** 
cond = 0. 
swiicn [ operator ) 

{ 

F1_F2_FSTRING_D!RECT. 

ERR JNV_STRING_SW{ searcnjnf _ppJstnng_fieid_arTay }. 

rf (cond ) 

{ 

*res |= u 

to iat_ count** 

bra an.. 

20 ) 

rf ( oefmeo >= reou»reo_ count ) r nave looted at last 2 (or 5) recoros V 

orea* j 

} 

PREV_F!ELDl_BfT. 
-array sianf. 

) 

} 

OreaK 

case avg _pur _pra r not supporting for field comparisons */ 

case iota i _pur _pra . 

arror.nandier (INVALID. SWITCH^ VALUE ERROR, pp open 

'pp.open {avg or total) m searcn.mf_ppjsiring.fleid array"). 
OreaK 

) 

) 

else 

exctuded_re coros 
3 0 tf ( tsuojlag || jj & temp ) 

array stan**. 

} 

for( ; array_start1 < array.endV array_stam*+ ) 
NEXT FIELD1 BIT. 

> 

NEXT.FIELD BIT. 

35 . 
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) 

else 

if ( map_count && *map_count1 ) r first (arrBy_start) is purchase or product. 2nd iarray_stam ) is cus c sur 7 

' mc-; r so 1st mc** will use 1st oata item •/ 

for ( i«0: xnum Oits: t *■ *me ) 
{ 

5 mc**: 

array_eno = array_stan * *mc 
if ( tempi && uf n ) 

{ 

if ( 'mc ) 
{ 

switch ( pp oper ) 

case pur_prd_ domain : 
case any_pur_prd ■ 

10 f 0r ( : array slan < array eno: array_stan** ) 

( 

cond ■ 0; 

swrtcn ( operator ) 

{ 

F1_F2_FSTRING_JJ_TEMP: 

ERR INV STRING SW{ search mf_pp fstnng field array ). 

) 

if < cond ) 

15 « 

•res I* ff. 

NEXT_FIELD_BrT; total count**: 

) ) 
break; 

case first_pur_prd : 

while ( array start < array end ) 

{ 

if ( jj & nemp ) r took at 1 st defined bit m field bitmap */ 

{ 

2 0 cond = 0: 

switch ( operator ) 

F1_F2_FSTRING_DIRECT. 

ERR INV STRING SW( search mf_pp fstnngjield array ). 

) 
{ 



Tes l= u 
totai couni*« 



) 

break. 

} 

NEXT_FIELD_BIT. 
array_stan**. 



r reouired_count is 2 V 
case thtro _pur _pfd : r requirea_count is 3 7 

30 «f ( "mc >s required count ) 
{ 

found « o. 

whoe ( array stan < array end ) 
{ 

rf ( ii A temp ) r look at bits defined in field bitmap */ 

{ 

found**: 

if { found == required count ) 

« ■ i 

j 3 cond = 0; 

switch ( operator ) 

{ 
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} 

if ( cond ) 

{ 



F 1_F2_FSTWNG_DIRECT. 

ERRJNV_STRING_SW( saan*jiif^pJstrmg_rie»d_ajTay ). 



■res |= jj. 
total_count++; 



) 

break. 

) 

' } 

NEXT_FIEtD_B!T. 
array start**. 

} 

10 break: 

r creating purchase_bitmap two ana muttipie_pur_pra use efferent logic man case tnree Dur ore V 
case two_pur_pro : ~ 
case muutpie_pur_ord : 
if ( •mc « 2 ) 

< 

r creating purcnase level bitmap, mark all that Qualify */ 
for ( found=0 ; array_start < array_eno: array_stan** ) 

1 5 cono = 0. 

switch ( operator ) 

{ 

F1_F2_FSTRING_JJ_TEMP. 

ERRJNV_STRING_SW( searcn_mf^pjstnngjietc_array ). 

if ( cond ) 

{ 

founo** 

rf ( found « 1 ) 

sav_re5 = res. 
sav _j = ij. 

) 

etse 

ff ( found ■« 2 ) 
{ 

*sav_res i= sav_r 
iotat_couni** 

2 5 % res 1= u 

totai count ** 

) 

etse 

if ( touno > 2 ) 
{ 

Ves t- u 
total count** 

} 

) 

3 0 NEXT FIELD BIT 

} 

) 

break. 

r creating purcnase_bitmap two and mufttpie_our_pro use different togic than case three pur _prd 7 
case tnree _pur_pro 
rf ( % mc >« 3 ) 

r creating purchase level brtmao. mark all that qualify 7 
35 for ( found =0 ; array start « array end; array start** ) 
{ 

oond = 0; 

switch ( operator ) 

{ 
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F1 F2 FSTRING_JJ_TEMP; 

ERR INV STRING_SW( searcn_mf _ppJstxvxgJteH_VT*y ), 

) 

if(oond) 

{ 

found**: 
tf ( found 1 ) 
{ 

aav_res = res; 

) 

else 

tt ( found »= 2 > 
< 

*av_resl = re*, 
savjp = ij. 

) 

else 

if ( found == 3 ) 
{ 

•$av_res |= tav Jj: 
•sav_re$l |= savjV. 

Tes7=fi. 

total count ♦= 3. 

} 

1 5 else 

if ( found > 3 ) 

{ 

. Vest=D. 
total count**. 

) 

) 

NEXT FIELD BIT. 

) 

) 

break: 
case tast_pur_prd 

rf ( array_stan < array end ) 

{ 

tor ( md=1 md < Vr.c mo** ) t* mo=1 to get to last our rec mis customer •/ 

( . 

array start** 
NEXT FIELD BIT 

) 

o r wnue ( mo- >* 0 ) 

{ 

if { jj & "temp ) r loon at last defined Dit •/ 

{ 

cono = C 

swncn ( operator ) 
{ 

Fl_Fr_FSTRlNG_ DIRECT, 

ERR INV STRING SW( searcn mf_ppjstnngjreta_array ) 

) 

30 «U cond ) 

{ 

•res l= « 
totai_count»* 

) 

break 

} 

PREV_FIEID_BIT. 
-array_stan. 



20 



35 



} 



break, 
case nti_puf_prd 
if ( Tnc >= 2 ) 

{ 
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defined » 0. 

Jor ( ; ma « ^ , r Ms1 (0 gw J6 |MI pur re . ^ ajitomer v 

■rray standi 
NExf FIELD BIT, 

} 

white ( mo- > 0 ) 

V ( J ft lamp ) r took at last define* on •/ 

defined**. 

jf(Oef,neo«2) r tootang « ne„ to „„ ^ 

cond = 0: 



10 switch ( operator ) 



Pl_r2_FSTRfNG DIRECT 
> E ^JNV.STRING.SW( ^ m f^ Jmn ^ fte ^ my , 

$ ( cond ) 
{ 

total counts- 

} 



break. 

) 

) 

PREV.FIELD.Brr. 
-array start: 

) 

} 

break: 

2 0 nM a$ £j**J*d : r reouired count is 2 V 

case lasts _pur_prd : r reouired count is 5 7 

r £S ZJZZl'f T* 1 01 ** 2 {0F 5) ***** this customer meets criteria V 

r creat.no purcnase level map. mark both of last 2 (or 5) records if ooth oualrty 7 
if ( mc >s required count ) 
{ 

defined = 0. 

for ( md; nd < Tnc: mo** ) r md=l to get to last pur rec this customer V 



array stan**. 
NEXT_FiELD BIT. 

) 

while ( md— > 0 } 

{ 

tl ( jj & temp ) r look at last defined bit 7 

defined**. 

cono = 0. 

switch ( operator ) 

F1_F2_FSTRING DIRECT; 

ERR_lNy_STRING_SW( searcn.mf ^ppjstnnQj.etd.arr8y ). 
if (cond) 

*res t= y. 
total_count**; 

( defined >= regurred.couni ) r have looked at last 2 (or 5) records 7 

break. 
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} 

PREV_F!EID_BIT. 
-array $tan. 

) 

) 

break; 

5 case •vQ_pur_prd r not supporting tor fie id comparisons 

case toiat_pur_pro 

error_hana»er (INVALID^ SW1TCH.VALUE ERROR, pp.ooeM 
"pp_oper1 (evg or total) in searcn_mf _ppjstrtngJieio_arTay'). 
preaK. 

) 

) 

etse 

extfuoad_recor03** 

10 > 

for ( ; array start < array_ena. array_stan** ) 

{ 

NEXT FIELD BIT; 

) 

NEXT_P1ELD1_BIT 
if ( !suo_flag H ut 1 & tempi ) 
array stani*-*. 

} 

15 else 

r as of July 93. we are not doing any many to many multifile field compansions cases */ 

n ( map count && map count 1 && 'map couni2 ) r botn purcnase or proouct. no purcnase to product •/ 

T purcnase to purcnase and proouct to product would go here */ 

) 

else 

r now do above for case of 2 mao counts •/ 

{ 

2 q ' f* purcnase to product and product to purcnase cases would go nere "/ 



retum<totai_count); 



) 



r 

2 S EARC H_ M r_ D AT AS £T_ ARRAYS 
25 - £STs ^ aOPr0Pna!B r ° arrnes 10 *"« wi oaseo on M , f«io 



7 



rrt *earcn_mf_03taset_arrays( oata. 

fiekMype. 
fte»d_sat 

f«id_ offset 
fiekfoffsetl, 
operator, 
searcn_ value. 

••*w>_vaiue_type. 
»tput_ bitmap, 
«put_brtmapi. 

3 5 resutts_bitmap) 
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•tnxa oataset "data: 

struct oataset "datat ; 

•num oata^typo field type. 

« fiald_*ae; 

■it fiew_offset: 

ttti»W_effsett; 

enum frera_ operator operator 

unwn aearch^iiem searoi value 

wumseatrh^vaUie.itemMarcn' value type 
struct bitmap •inputjatmap; " 
struct bitmap •tnpuTbrtmapV 
struct onmap fesuni^bitmap. 

(" 



unsigned mt total_count = 0; 



10 



15 



we nave Our™^ 

The routine that mme has on a iheetof n^, MUU>rtemt * 

can grven oe,ow All the oan^neteTmat^ ^ ^-^.o 

operator, wn.cn . neces^T^^i^^ aa0,^Ona, P"*"™ * the" 

**«ry. smce currentry ne ts oniy oomg an equal 

swrtcn (fietajype) 



to 

array 



{ 



case aotiars 
case floating jDomt 
case iarge_tnteger 

totaLcount = *aafch^mfjarpe.fieio.array( 



20 



break, 
case yearjnonth 
case year_momn_oay 
case meoium_ integer 

totai_count 



searcn_mt_meoium - field_array{ 



25 



break, 
case character 
case smail^ integer 

total_coum 



searcn_mf_short_field_arTay{ 



30 



break, 
case stnng_type 

fat^L^* ° a " <*trmgjength> for compare 7 

totai.count = •aarch_mf - nnn fiL f«io_array( 



35 



break; 

case f«ed_stnng: 

lotai.count = »« a rcn^mf_f st nng^f,eld_array( 

oata->iiems. 
datai->items. 



data- > items. 

daiai-xiems. 
operator 
in out m bum ao 
mput^pitmaoi 
resuits^bitmap). 



data-xtems 
data i->u ems, 
o aerator, 
•nout^oitmap. 
mput_oitmapV 
resuits_pitmapj; 



oata->rtem3. 

data i-> items. 

operator. 

nput_bitmap. 

^put^bitmapl. 

resuits_bitmap), 



data->items. 

oatai*>items. 

operator. 

fieldfare. 

tnput^bnmap, 

jnput_bitmapl. 

resuns.bitmap); 
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break: 

case ortjype: 



totai_count = searcn_rnf_orMield_afTay< 



10 



15 



20 



break: 

case Oad_data_rype: 
default: break: 
} r end of swncn •/ 

r if (copy brtmaps(resurts bitmap. resufts_bitmapl) sss NULL) 

~ error_nanoier fBrrMAP_N0TjC0PY, ERROR, NONSTATUS. 

**resurts_brtmao to 770 m <seartTi_mf_ddtaset_arr3ys > ''V 



fiew_sae 

fiekToftset. 
fieW~ottsetl. 
mout^ortmao. 
tnpLrt_bitmap 1 . 
resufts_bitniap); 



data->rtems. 

data i-> items. 

operator. 

«nput_Ditmao. 

mput_ortmapi. 

resurts_brtmap). 



•/ 



} 



retumttoiai^count): 



- S EAR CH_MF_PUR_PRD_DAT AS ET_ ARRAYS 

- Catis tne appropriate routines to ouiid De results oeseo on tnetr field 
-types 



ru searcrwnf _pp_oataset_ arrays ; data 



30 



35 



struct dataset 'data: 
struct dataset "oataV 
enum data_fype f»eld_rype. 
int field_size: 
int f»etd_oftset; 
mtfieid"oftsetl: 



datai. 

fieio_ryDe. 

fie tc_ size 

fieia_o*isei. 

fieid_oftse(i. 

operator. 

searcn_ value. 

searcn_vaiue_type. 

«noui_ortmap. 

ttPcr:_Drimao\ 

resuns_oitmap. 

map_count. 

map_counn. 

m3p_couni2. 

ooer_cooe. 

oper_cooei. 

suo_fiapj 
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mum fie td_ operator operator. 

union searcn^item searcn value. 

enum fearcft_vaiue_nem searcn_vaiue_type; 

struct bitmap. 'input^oitmao. 

struct bitmap •inout^Ortmaoi; 

struct brtmao *resuns_ortmap. 

unstgneo snort •mapjcouni. 

unsigned snort *map_counn. 

unsigneo snort *map~count2. 

unstgneo tnt oper_cooe, 

unsigned tnt oper~coael; 

rt sub flag; 

{ 



unsigned mt total^couni = 0. 

r 

svp - dan. this routine , s comoiete wnat you need to do is copy mate's routine tor 

lT»^nT S °n 3n ° Cftan98 tne parame,er ***** ar *™ so mat a contorms to 
wnat we nave Our oata->rtems a catai and tne oatai-xtems is oata2 

^HZT^ 1? Pl3S °" a * Paper * 0UP medium f.eio array 

nc * MrammerS matcn «y addtonal parameter* tne" 

15 operator, wn.cn is necessary. since currentry ne is only comg an eouai 



switch (field type) 
{ 



20 



case dollars 
case floatingpoint 
case targe_mteger 

totai count 



= searcn_mf_ppjarge_fie!o_aiTay( 



25 



proa* 
case year_montn 
case year_monin_cay 
case medium^ integer 

total count = 



searcn_mf_pp_rnedium_field_array( 



30 



35 



break; 
case character 
case smaii^mteoer 



cata->nems 

datat->items 

operator. 

inDut^pttmao. 

tnput_oitmapl. 

resutts_bnmap 

map_count 

mas_ count 1 

^ar^ccunC 

cpe r _aode 

coer^cooei. 

suDjiag). 



oata->items. 
data i-> items, 
operator. 

mput^bitmap. 

mout^Ditmaoi, 

resuits_onmap. 

map_ count. 

map_ count 1 . 

map_couni2. 

oper_cooe. 

oper_codel. 

subjftag); 
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tota»_count B »«arcri_fnf_pp_shon_f»aW_«iTay( 



10 



break: 
strmg^type: 

r note: must pass fieta_sae (stnng^iengtn) for compare •/ 
totai_count » seartn_mf _pp_stnng_rtekJ_arTay( 



15 



oata->«ems 
oaiai-> items. 



vtput_oitmeD . 
mput_brtmao 1 , 
rvsutts_bomap. 
map_coum. 
map_count1 , 
map_count2. 
ooer_cooe. 
aper_cooeV 
su£>_flag). * 



data->items. 

Oatai->nems. 

operator. 

fieid_size. 

nput_Drtmap. 

nput_DttJTiaDi , 

results^titmap. 

m ap_ co un i. 

map_countl 

map_couni2. 

oper^cooe. 

oper_cooel. 

su5_flag). 



20 



f«ed_stnng: 

totatjcouni = search_mf_pp Jstnng_fieldarray( 

data-»nems. 
data v> items 
operator. 



30 



break; 

r note not sue Don mg prt^tyoe for tnis yet need to aod ml_pp routine ano 
exoano oasseo oarameter list V 
case Dit_rype 

totat_count » $earcfi_mf_bit_fietd_array( 



35 



fietd_size 
fieto^oftsei 
fieJO_cftsen 
mDut_Ci'.?TiaD 
tnput_Ditmap1. 
resuits_Ditmao. 
ma p_ count. 
map_couni1 . 
map_couni2. 
ope r_ cod 8. 
oper_coooi . 
suo.ftag). 



data->rtems 

datal->nems 

operator. 

tnput^Oitmap. 
mput_Oitmap1 . 

results_Oitmap). 
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break. 

case bad.datajype: 
5 default: break. 

) r ena of twitcn •/ 

r if (copy bttmaosf results bitmao. resuns^dnmaoi 1 ~= NULL) 

" errqr_nandier TbiTMAP^NOtJcOPY. ERROR. N0_ STATUS. 

"resutts_Ditmao to in <searcp_m!_caiasei w 3rTays>") 

in • retumf total count): 
) 



15 



20 



25 



30 



35 
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WHAT IS CLAIMED IS: 

1. A computer implemented data retrieval system 
comprising: 

(a) a database server; 

said database server, including data storage 
for storing rotated standard relational database 
records in rows, wherein said columns of data 
fields across each record are stored contiguously; 

(b) a terminal electrically interconnected to said 
database server for sending queries to said 
database server for storing, retrieving and 
updating said contiguously stored data fields, 

(c) said database server including a programmed 
processor for processing said queries received from 
said terminal to determine which contiguously 
stored data fields will be accessed, said 
programmed processor including a bitmap processor 
for processing said data fields accessed by 
performing the following steps: 

(i) generating a bitmap for each said 
accessed data field by assigning a bit to each 
contiguously stored data field entry; and 

(ii) processing said bitmaps to determine 

which records satisfy said query. 

2. The computer implemented data retrieval system as 
in claim 1, wherein said programmed processor processes 
said queries by performing the following steps: 

(a) scanning said query for a determination of 
which of said contiguously stored data fields 
will be accessed to answer said query; 

(b) accessing queried data fields; 

(c) processing said queried data fields to 
determine which field entry within said 
contiguously stored data fields satisfy said 
query. 
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3. A computer implemented data retrieval system as in 
claim 1, wherein said program processor further includes 
a interactive processor, said interactive processor 
storing a set number of the most recent queries executed 
by a system user and the bitmaps associated with said 
most recent queries from said queries to eliminate 
bitmap processing for generation of bitmaps for common 
queries . 

4. A computer implemented data retrieval system as in 
claim 1, wherein said queried data fields have columnar 
identifiers assigned to each of said fields, said 
identifiers being indexed to a look up table. 

5. A method of searching a relational database for 
records which match a query comprising the steps of: 

(a) parsing said query into a plurality of pieces 
where each piece relates to only one field of the 
database; 

(b) comparing each piece of said query sequentially 
to the relevant field of all database records; 

(c) storing the result of each comparison into a 
bitmap with a bit position corresponding to the 
particular record; 

(d) combining the bitmaps into a results bitmap 
according to the original query to form an aggregated 
result . 



6. The method of claim 5 including the additional step 
of counting the records which match the query, said 
counting step performed by a means for converting said 
results bitmap into an index, indices or array 
containing the number of bits set. 

7. The method of claim 5 where said step of combining 
the bitmaps into a results bitmap uses a means for 
operating on a plurality of bits in parallel fashion. 
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8. The method of claim 5 including the additional step 
of storing a ring of the most recent bitmaps containing 
the results of each piece of a query where each node of 
said ring contains a query piece definition and a 
resulting bitmap. 

9. The method of claim 5 including the additional step 
of storing a ring of the prior bitmaps containing the 
results of each piece of a query where each node of said 
ring contains said query piece definition and said 
resulting bitmap. 

10. The method of claim 8 including the additional step 
of parsing a new query into a plurality of pieces, 
comparing each piece to said query piece definition of 
said results bitmaps stored in said storage ring, and 
skipping the processing of any piece which matches a 
bitmap stored in said storage ring. 

11. A method of searching a relational direct marketing 
database organized in a columnar format for records 
which match a query comprising the steps of: 

(a) parsing said query into a plurality of pieces 
where each piece relates to only one field of the 
database; 

(b) comparing each piece of said query sequentially 
to the specific fields of each database which are stored 
in a contiguous manner, wherein all other fields within 
the database are not reviewed; 

(c) storing the results of each comparison into a 
bitmap, wherein said bitmaps are one dimensional arrays 
representative of each said query specific field of 
data. 

(d) combining the bitmaps into a results bitmap 
according to the original query to form an aggregated 
result . 
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12. A method of searching a relational database 
comprising the steps of: 

(a) querying said fields of data by means of a 
client server interface program, wherein said client 
server interface program is loaded onto a personal 
computer where said queries are entered and processed 
into packets, said packets being sent to a database 
server; 

(b) receiving said packets by means of a program 
running on a database server, said database server 
storing a database where all database records are 
rotated 90 degrees such that data for each field is 
stored contiguously across all customers; 

(c) retrieving data from said database 
corresponding to the field contained in said packets, 
wherein data from other fields is not retrieved; 

(d) comparing the query from said packets to the 
data retrieved from said database; 

(e) creating bitmaps indicating the results of said 
comparisons, wherein said bitmaps are one -dimensional 
arrays ; 

(f) combining said bitmaps J.n proper sequence to 
create a results bitmap forming an aggregated result. 

(g) counting the bits in said results bitmap to 
determine the number of records in said database which 
match the query; 

(h) sending the query results back to the client 
server interface program. 

13 . The method of claim 12 where said client server 
program includes a means for cutting, copying, pasting 
and inserting cells, rows and columns of data. 

14. The method of claim 12 where said client server 
program includes a means for accumulating pieces of 
queries into a total query connected by logical 
operators . 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



339 



PCT/US94/12074 



15. The method of claim 12 where said client server 
program includes a means for parsing said query into a 
plurality of pieces where each piece relates to only one 
field of the database. 

16. The method of claim 12 where said client server 
program includes a spreadsheet allowing different 
queries to be combined into a single complex query. 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



1/11 



PCT/US94/12074 



2 

p 

in 
O 

ID 

(X 
U 

i 

O 



01 

uj 



en 

O 



DC 
UJ 

§ 

O 



CM 
LU 

i 

r> 
o 



Ui 



ft 

o 



C/) 

o 

UJ 



CM 

o 

CM 



5 3 



CO 

o 



o 

CO 

o 

CO 



CM 



in 



CO 

o 

CM 

^ to 



xi 
in I m 



CMIrolQ 



go 
°Jo 

olio eg 

CM to I CD 



o 
o o 

o < 

olo 

ro I o> 

CM CM I O I li- 



d 

£L 

gl25 

O 

col^l^ 

CM K) 



O 
Ll. 




CM 



O 

o 
o 



UJ 
UJ 



o> 00 I = 

'-CM 



UJ 



01 
UJ 

, o 

fc UJ 

o o 



o 
o 
o 



o 

UJ 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



3/11 



PCT/US94/12074 



O 
O 



O 



UJ 
Ll 



c 



O 



o 



o 
o 

CD 



o 



LU 

O 
O 



o 
o 
o 

CO 
CM 



O 

o 
o 

* 



o 
o 
o 

CM 



O 
O 

o 

* 

in 



to 



UJ 

o 



O) 



CO 
CM 



CM 



CM 



CM 



Ql 
IM 



CO 

o 

CM 
IO 

m 



CM 



If) 

IT) 



o 

CO 

o 

CO 



CO 

o 
o 



CM 

o 

CM 




Ul 



CO 



tr 

UJ 

o 

c/> 
o 



or 

D 

/> 

O 



CM 
(Z 

D 

/> 

r> 
o 



UJ 

z 

D 

o 



ui 

D 

/) 
3 
O 



m 
cr 

UJ 

o 



o 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



4/11 



PCI7US94/12074 




SUBSTITUTE SHEET (RULE 26) 



WO 95/1 1487 



PCT/DS94/12074 



5/11 




SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



PCT/US94/12074 




SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



PCI7US94/12074 




SUBSTITUTE SHEET {RULE 26) 



WO 95/11487 



8/11 



PCT/US94/12074 



O 

o 



p 

< 
o 

o 



I 



o 

I 

o 



i 

5 



2 

IZ 



o 
o 

42 



O 

en 



O 

E 



en 



UJ 



cr 

CD 

Ij < O CD 

5 O O 
O (/) CO X 



0) 

c 
o 
o 



o 

o 



N 

o 

E 



0) 

o 



T3 



CD 

6 




eg 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



9/11 



PCT/DS94/12074 




SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



10/11 



PCT/US94/12074 



QUERY 
GENERATED 
ON PC 



i 



QUERY 
ARRIVES 
AT SERVER 



I 



QUERY 
PARSED 
INTO PIECES 



I 



ORDER OF 
PRECEDENCE 
TREE FORMED 



i 



INDIVIDUAL 

BITMAPS 
GENERATED 



I 



BITMAPS 
COMBINED 
IN PROPER 
SEQUENCE 



i 



COUNTS 
PERFORMED 



I 



RESULTS 
RETURNED 
TO SERVER 



28 



30 



32 



34 



36 



38 



40 



42 



FIG. 10 



SUBSTITUTE SHEET (RULE 26) 



WO 95/11487 



11/11 



PCT/US94/12074 





60 



62 




64 





66 



44 



46 48 




t r 

50 52 





r T 

54 56 58 



FIG. 11 



SUBSTITUTE SHEET (RULE 26) 



INTERNATIONAL SEARCH REPORT 



iternauonal application No. 
PCT/US94/ 12074 



A. CLASSIFICATION OF SUBJECT MATTER 
IPC(6) : G06F 17/00. 30; 19/00. 

US CL : 395/600, 161. 200; 364/227.4. 283.1. 283.4. 284.4 
According to International Patent C lassification UPC) or to both national classification and IPC 

B. FIELDS SEARCHED " 

Minimum documentation searched (classification system followed by classification symbols) 
U.S. : 395/600. 161. 200; 364/227.4. 283.1, 283.4, 284,4 

Documentation searched other than minimum documentation to the extent that such documents are included in the fields searched 
none 

Electronic data base consulted during the international search (name of data base and, where practicable, search terms used) 
Please See Extra Sheet. 



C. DOCUMENTS CONSIDERED TO BE RELEVANT 



Category 1 



Citation of document, with indication, where appropriate, of the relevant passages 



Relevant to claim No. 



Y 
Y 



DBMS, Volume 4, No. 10, Issued September 1991, J 
Winchell, "FoxPro 2.0's Rushmore: here's how FoxPro 2.0's 
new technology speeds queries, and when it works best.", 
pages 54-60 especially page 54-57. 

ACM Transactions on Database Systems, Volume 4, No. 4, 
issued December 1979, D. S. Batory, "On Search 
Transposed Files", pages 531-544, especially page 531-533. 

US, A, 4,751,635 (Kret) 14 June 1988, col 11-19, col 26. 

US, A, 3,964,029 (Babb) 15 June 1976, ALL 

US, A, 4,785,400 (Kojima et al) 15 November 1988, all 



5-11 



1-4, 12-16 



1-4, 12-16 



1-4, 12-16 



1-16 



1-16 



f"x| Further documents are listed in the continuation of Box C. Q See patent family annex. 



•r 



Special categories of cited documeatt: 

document defining the general fUte of the tut which m not considered 
to be pert ' 



earlier document published on or after the mternabooa) Bla g date 

document which may throw doubu oo priority ctaen(s) or which m 
cited to establish the publicalioo date of another citation or other 
i (as specified) 



.y. 



document referring to an oral disclosure, use. exhibition or other 



document published prior to the international filing date but later 
the priority date claimed 



"A* 



later document published after the international filing date or priority 
date and not in conflict with the application but cited to understand the 
principle or theory underlying the invention 

document of particular relevance; the claimed invention cannot be 
considered novel or cannot be considered to involve an inventive step 
when the document is taken alone 

document of particular relevance: the claimed invention cannot be 
considered to involve an inventive itep when the document ii 
combined with one or more other such documents, such combination 
being obvious to a person skilled in the art 

document member of the same patent family 



Date of the actual completion of the international search 
22 DECEMBER 1994 



Date of mailing of the internati 

03 APR 



onal search report 



Name and mailing address of the ISA/US 
Commissioner of Patents and Trademarks 
Box PCT 

Washington, D.C. 20231 
Facsimile No. (703) 308-5357 



Authorized officer ^ T^jfltA-jZcO 

JACK M. CHOULES 
Telephone No, (703) 305-9840 



Form PCT/1SA/210 (second shcet)(July 1992)* 



INTERNATIONAL SEARCH REPORT 



C (Continuation). DOCUMENTS CONSIDERED TO BE RELEVANT 



ternanonal application No. 
i>CT/US94/ 12074 



Category* 



Citation of document, with indication, where appropriate, of the relevant passages 



Relevant to claim No. 



A,P 



Y, P 



US, A, 5,263,159 (Mitsui) 16 November 1993 

US, A, 5,299,197 (Schlafly) 29 March 1994, col. 3-5. 

Mac WEEK, Volume 6, No. 8, issued 24 February 1992, J. A. 
Oski, "Muse makes databases sing: Occam Research's easy-to-use 
data-analysis tool brings flexible reporting to users of corporate 
databases." pages 37-40. 

DBMS, Volume 4, No. 10, Issued September 1991, "Rushmore's 
bald spot" 

IEEE, Forth International Conference On Very Large Data Bases, 
West Berlin, Germany, September 13-15, 1978, R. Ashany, 
"Application of Sparse Matrix Techniques to Search, Retrieval, 
Classification and Relationship Analysis in Large Data Base 
Systems - Sparcom", pages 499-516 



1-4, 12-16 
1-4, 12-16 



1-4, 12-16 



1-16 



1-16 



Form PCT/ISA/210 (continuation of second sheet)(July 1992)* 



INTERNATIONAL SEARCH REPORT 



.iternationai application No. 
PCT/US94/12074 



B. HELDS SEARCHED 

Electronic data bases consulted (Name of data base and where practicable terms used): 
APS, DIALOG 

search terms; field, column, store, save, contiguous, adjacent, data, transpose. Hie, record, tables, row, query, invert, 
bitmap, search, rotate, spreadsheet 



Form PCT/ISA/210 (extra shect)(July 1992)* 



THIS PAGE BLANK (uspto) 



